summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArun Isaac2022-11-28 13:31:09 +0000
committerArun Isaac2022-11-28 13:31:09 +0000
commited70ff2aa0f725f8833dea7a8303172516a70347 (patch)
tree809ca477a524e42cc9c9ad4d1b8dcebff6c25463
parentca3abcbae5e8e1ef5102af5645bd6f75a554961e (diff)
downloadtissue-ed70ff2aa0f725f8833dea7a8303172516a70347.tar.gz
tissue-ed70ff2aa0f725f8833dea7a8303172516a70347.tar.lz
tissue-ed70ff2aa0f725f8833dea7a8303172516a70347.zip
web: server: Do not prepend / to URI path.
* tissue/web/server.scm (handler): Do not prepend / to URI path.
-rw-r--r--tissue/web/server.scm4
1 files changed, 2 insertions, 2 deletions
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.