This commit is contained in:
2026-04-09 11:55:44 +02:00
parent 52892e009d
commit 26d607bd7f

View File

@@ -14,6 +14,7 @@
web-server/servlet-env
(prefix-in c: net/cookies)
net/url
net/uri-codec
racket/runtime-path
racket/file
racket/string
@@ -701,6 +702,7 @@
(let* ((idx (string-find file "?")))
(unless (eq? idx #f)
(set! file (substring file 0 idx))))
(set! file (uri-decode file))
(let ((f (if (string=? file "/") "index.html" file)))
(when (string-prefix? f "/")
(set! f (substring f 1)))