diff options
-rw-r--r-- | mumi/web/render.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/mumi/web/render.scm b/mumi/web/render.scm index 61ccde6..7f99731 100644 --- a/mumi/web/render.scm +++ b/mumi/web/render.scm @@ -119,12 +119,13 @@ (list (build-response #:code 201) "")) -(define* (redirect path #:optional (headers '())) +(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))))) + "/" (encode-and-join-uri-path path)) + #:query query))) (list (build-response #:code 301 #:headers (append `((content-type . (text/html)) |