From b0e01d9549f389ef43190a966eee5d4615434188 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Thu, 23 May 2019 18:10:12 +0200
Subject: Update server.

---
 module/server/test.scm | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

(limited to 'module/server/test.scm')

diff --git a/module/server/test.scm b/module/server/test.scm
index f28b1152..d33be67f 100644
--- a/module/server/test.scm
+++ b/module/server/test.scm
@@ -15,7 +15,9 @@
              (srfi srfi-88)
 
              (sxml simple)
-             (ice-9 ftw))
+             (ice-9 ftw)
+             (ice-9 rdelim)
+             )
 
 (define (form-page name)
   `(div
@@ -68,8 +70,7 @@
 
    (GET "/ls/:file" (file)
         (return '((content-type text/plain))
-                (call-with-input-file (string-append "./" file)
-                  (@ (ice-9 rdelim) read-string))))))
+                (call-with-input-file file read-string)))))
 
 (run-server routes 'http '() "Default Name")
 
-- 
cgit v1.2.3