diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-11-22 01:14:34 +0100 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2021-11-22 01:14:34 +0100 |
| commit | 181d25c1ca4b0d24aa34c4e29ee96e7ea9a66596 (patch) | |
| tree | c2ae9a86a50ea09bfea1295f98f125f1c7329372 /module/calp/server/routes.scm | |
| parent | Fix <textarea/> being ignored when editing event. (diff) | |
| download | calp-181d25c1ca4b0d24aa34c4e29ee96e7ea9a66596.tar.gz calp-181d25c1ca4b0d24aa34c4e29ee96e7ea9a66596.tar.xz | |
Slightly better error hnadling in directory-table.
Diffstat (limited to 'module/calp/server/routes.scm')
| -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) '()))))))) |