From 257c0bf628d2e1ce57e17f859de163d04e59f9f9 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 23 Nov 2016 17:21:01 +1300 Subject: [PATCH] #:headers for `web-redirect!`. --- racket/syndicate/drivers/web.rkt | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/racket/syndicate/drivers/web.rkt b/racket/syndicate/drivers/web.rkt index 4c2ca31..333e0ec 100644 --- a/racket/syndicate/drivers/web.rkt +++ b/racket/syndicate/drivers/web.rkt @@ -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)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;