From 0d34e3280e46a1d723987bf1d4b3ff6e867aed16 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 23 Nov 2016 15:39:11 +1300 Subject: [PATCH] web-redirect/temporary! -> web-redirect! --- racket/syndicate/drivers/web.rkt | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/racket/syndicate/drivers/web.rkt b/racket/syndicate/drivers/web.rkt index 0f8376b..4c2ca31 100644 --- a/racket/syndicate/drivers/web.rkt +++ b/racket/syndicate/drivers/web.rkt @@ -30,7 +30,7 @@ web-respond/bytes! web-respond/string! web-respond/xexpr! - web-redirect/temporary! + web-redirect! append-url-path @@ -161,14 +161,16 @@ (bytes-append preamble (string->bytes/utf-8 (xexpr->string body-xexpr))))) -(define (web-redirect/temporary! id location - #:content-type [content-type "text/html"] - #:body [body `(html (body (a ((href ,location)) - "Moved to " ,location)))]) +(define (web-redirect! id location + #:code [code 303] + #:message [message #"Redirect"] + #:content-type [content-type "text/html"] + #:body [body `(html (body (a ((href ,location)) + "Moved to " ,location)))]) (web-respond/xexpr! id #:header (make-web-response-header - #:code 303 - #:message #"Moved" + #:code code + #:message message #:headers (list (cons 'location location) (cons 'content-type content-type))) body))