diff options
| author | Arun Isaac | 2022-11-28 13:31:09 +0000 |
|---|---|---|
| committer | Arun Isaac | 2022-11-28 13:31:09 +0000 |
| commit | ed70ff2aa0f725f8833dea7a8303172516a70347 (patch) | |
| tree | 809ca477a524e42cc9c9ad4d1b8dcebff6c25463 | |
| parent | ca3abcbae5e8e1ef5102af5645bd6f75a554961e (diff) | |
| download | tissue-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.scm | 4 |
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. |