summaryrefslogtreecommitdiff
path: root/module/web/http.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/web/http.scm')
-rw-r--r--module/web/http.scm6
1 files changed, 3 insertions, 3 deletions
diff --git a/module/web/http.scm b/module/web/http.scm
index f2f086632..7bad3af86 100644
--- a/module/web/http.scm
+++ b/module/web/http.scm
@@ -628,7 +628,7 @@ ordered alist."
(display (date->string date "~a, ~d ~b ~Y ~H:~M:~S GMT") port))
(define (write-uri uri port)
- (display (unparse-uri uri) port))
+ (display (uri->string uri) port))
(define (parse-entity-tag val)
(if (string-prefix? "W/" val)
@@ -751,7 +751,7 @@ not have to have a scheme or host name. The result is a URI object."
#:query (and q (substring str (1+ q) (or f end)))
#:fragment (and f (substring str (1+ f) end)))))
(else
- (or (parse-uri (substring str start end))
+ (or (string->uri (substring str start end))
(bad-request "Invalid URI: ~a" (substring str start end))))))
(define (read-request-line port)
@@ -890,7 +890,7 @@ phrase\"."
((_ sym name)
(declare-header sym
name
- (lambda (str) (or (parse-uri str) (bad-header-component 'uri str)))
+ (lambda (str) (or (string->uri str) (bad-header-component 'uri str)))
uri?
write-uri))))