diff options
author | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-22 19:14:36 +0200 |
---|---|---|
committer | Hugo Hörnquist <hugo@lysator.liu.se> | 2020-08-22 19:14:36 +0200 |
commit | c789080f28a72884171b43a93ee8001ebb9a2bd0 (patch) | |
tree | 2c01094f5357722ff12fc15620d1dda474d1c468 /module/c | |
parent | Allow multiple benchmark files. (diff) | |
download | calp-c789080f28a72884171b43a93ee8001ebb9a2bd0.tar.gz calp-c789080f28a72884171b43a93ee8001ebb9a2bd0.tar.xz |
Move more places to use path-append.
Diffstat (limited to '')
-rw-r--r-- | module/calp/server/routes.scm | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/module/calp/server/routes.scm b/module/calp/server/routes.scm index 697f2e50..29a620b0 100644 --- a/module/calp/server/routes.scm +++ b/module/calp/server/routes.scm @@ -42,15 +42,13 @@ -(define (// . args) (string-join args file-name-separator-string )) - (define (directory-table dir) `(table (thead (tr (th "") (th "Name") (th "Perm"))) (tbody ,@(map (lambda (k) - (let* ((stat (lstat (// dir k)))) + (let* ((stat (lstat (path-append dir k)))) `(tr (td ,(case (stat:type stat) [(directory) "📁"] [(regular) "📰"] @@ -406,7 +404,7 @@ (return '((content-type text/html)) (sxml->html-string - (directory-table (// "static" *))))) + (directory-table (path-append "static" *))))) (GET "/count" () |