diff options
Diffstat (limited to 'module')
| -rw-r--r-- | module/calp/server/routes.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm index 0bbd1579..08e48714 100644 --- a/module/calp/server/routes.scm +++ b/module/calp/server/routes.scm @@ -58,7 +58,12 @@ [else "🙃"])) (td (a (@ (href "/" ,dir "/" ,k)) ,k)) (td ,(number->string (stat:perms stat) 8))))) - (cdr (scandir dir)))))) + (cdr (or (scandir dir) + (scm-error + 'misc-error + "directory-table" + "Scandir argument invalid or not directory: ~a" + (list dir) '()))))))) |