summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--haunt/serve/web-server.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/haunt/serve/web-server.scm b/haunt/serve/web-server.scm
index f66046c..53ccc10 100644
--- a/haunt/serve/web-server.scm
+++ b/haunt/serve/web-server.scm
@@ -35,6 +35,7 @@
#:use-module (web request)
#:use-module (web response)
#:use-module (web uri)
+ #:use-module (haunt utils)
#:use-module (haunt serve mime-types)
#:export (serve))
@@ -111,8 +112,7 @@ FILE-NAME."
"Concatenate FILE-NAMES, preserving the correct file separators."
(string-join (map uri-encode
(remove string-null?
- (string-split (string-concatenate file-names)
- #\/)))
+ (flat-map (cut string-split <> #\/) file-names)))
"/" 'prefix))
(define render-child