From ed70ff2aa0f725f8833dea7a8303172516a70347 Mon Sep 17 00:00:00 2001
From: Arun Isaac
Date: Mon, 28 Nov 2022 13:31:09 +0000
Subject: web: server: Do not prepend / to URI path.

* tissue/web/server.scm (handler): Do not prepend / to URI path.
---
 tissue/web/server.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'tissue')

diff --git a/tissue/web/server.scm b/tissue/web/server.scm
index bfe3992..909a4f5 100644
--- a/tissue/web/server.scm
+++ b/tissue/web/server.scm
@@ -316,9 +316,9 @@ See `start-web-server' for documentation of HOSTS."
                                               path "index.html"))
                          ;; Try path and path.html.
                          (list (string-append (assq-ref host-parameters 'website-directory)
-                                              "/" path)
+                                              path)
                                (string-append (assq-ref host-parameters 'website-directory)
-                                              "/" path ".html"))))))
+                                              path ".html"))))))
           (and file-path
                ;; Check that the file really is within the document
                ;; root.
-- 
cgit v1.2.3