diff options
| -rw-r--r-- | mumi/web/render.scm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/mumi/web/render.scm b/mumi/web/render.scm index 0b4b705..d34d607 100644 --- a/mumi/web/render.scm +++ b/mumi/web/render.scm @@ -120,12 +120,10 @@ "")) (define* (redirect path #:optional query (headers '())) - (let ((uri (build-uri 'http - #:host (%config 'host) - #:port (%config 'port) - #:path (string-append - "/" (encode-and-join-uri-path path)) - #:query query))) + (let ((uri (build-relative-ref + #:path (string-append + "/" (encode-and-join-uri-path path)) + #:query query))) (list (build-response #:code 301 #:headers (append `((content-type . (text/html)) |