From 181d25c1ca4b0d24aa34c4e29ee96e7ea9a66596 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Mon, 22 Nov 2021 01:14:34 +0100
Subject: Slightly better error hnadling in directory-table.

---
 module/calp/server/routes.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

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) '())))))))
 
 
 
-- 
cgit v1.2.3