This commit is contained in:
Tony Garnock-Jones 2016-11-26 09:59:24 +13:00
parent 0a585d7842
commit 990ae8ea9a
1 changed files with 1 additions and 1 deletions

View File

@ -382,7 +382,7 @@
(web-virtual-host scheme #f port)]))
(define (format-url-path u)
(string->resource-path (url-path u)))
(url-path->resource-path (url-path u)))
(define (build-headers hs)
(for/list ((h (in-list hs)))