syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

#:headers for `web-redirect!`.

This commit is contained in:
Tony Garnock-Jones 2016-11-23 17:21:01 +13:00
parent 0d34e3280e
commit 257c0bf628
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
racket/syndicate/drivers/web.rkt
View File

@ -165,14 +165,16 @@
#:code [code 303]
#:message [message #"Redirect"]
#:content-type [content-type "text/html"]
#:headers [headers '()]
#:body [body `(html (body (a ((href ,location))
"Moved to " ,location)))])
(web-respond/xexpr! id
#:header (make-web-response-header
#:code code
#:message message
#:headers (list (cons 'location location)
(cons 'content-type content-type)))
#:headers (list* (cons 'location location)
(cons 'content-type content-type)
headers))
body))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;