From 390980cf5ce1d83c52d16098417267ee92f2f6bf Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 11 Apr 2015 23:30:59 -0400
Subject: serve: web-server: Fix directory rendering.

Paths were not being concatenated properly.

* haunt/server/web-server.scm (render-directory): Fix concat+uri-encode.
---
 haunt/serve/web-server.scm | 4 ++--
 1 file 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
-- 
cgit v1.2.3