From 64469e42a61a28bcb5111d09b994fdad0f79de2b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= Date: Thu, 16 Apr 2020 12:50:16 +0200 Subject: Fix directory-table erroring when subdirs are present. --- module/entry-points/server.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'module') diff --git a/module/entry-points/server.scm b/module/entry-points/server.scm index 25b86735..146028ee 100644 --- a/module/entry-points/server.scm +++ b/module/entry-points/server.scm @@ -28,15 +28,15 @@ (thead (tr (th "") (th "Name") (th "Perm"))) (tbody - ,@(map (lambda (kv) - (let* (((k stat) kv)) + ,@(map (lambda (k) + (let* ((stat (lstat k))) `(tr (td ,(case (stat:type stat) [(directory) "📁"] [(regular) "📰"] [else "🙃"])) (td (a (@ (href "/" ,dir ,k)) ,k)) (td ,(number->string (stat:perms stat) 8))))) - (cddr (file-system-tree dir)))))) + (cddr (scandir dir)))))) (define (make-make-routes calendar events) -- cgit v1.2.3