Fixing index file handling to take the index relative to the url, not the search path.

This commit is contained in:
Alex Shinn 2015-02-11 19:05:35 +09:00
parent 6319d11291
commit ed458469a7

View file

@ -94,7 +94,8 @@
=> (lambda (index-file)
;; Generate and restart a new request with explicit index file.
(let* ((uri (request-uri request))
(path2 (make-path (uri-path uri) index-file)))
(path2 (make-path (uri-path uri)
(path-strip-directory index-file))))
(restart
(request-with-uri request (uri-with-path uri path2))))))
(else