diff options
| author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-16 12:50:16 +0200 |
|---|---|---|
| committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-04-16 12:50:16 +0200 |
| commit | 64469e42a61a28bcb5111d09b994fdad0f79de2b (patch) | |
| tree | 13d272cb68f9a594b7534a57114f781314e3a8f3 | |
| parent | Add UI sliders to tune CSS. (diff) | |
| download | calp-64469e42a61a28bcb5111d09b994fdad0f79de2b.tar.gz calp-64469e42a61a28bcb5111d09b994fdad0f79de2b.tar.xz | |
Fix directory-table erroring when subdirs are present.
| -rw-r--r-- | module/entry-points/server.scm | 6 |
1 files changed, 3 insertions, 3 deletions
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) |