web-redirect/temporary!

This commit is contained in:
Tony Garnock-Jones 2016-11-23 15:32:57 +13:00
parent 1eeb2ce59a
commit 3b376315f4
1 changed files with 1 additions and 7 deletions

View File

@ -57,10 +57,4 @@
(during (http-listener $host-name $port)
(assert (vh host-name port))
(on (web-request-get (id req) (vh host-name port) ("" ()))
(web-respond/bytes! id
#:header (web-response-header
#:code 303
#:message #"Moved"
#:headers (list (cons 'location "/index.html")
(cons 'content-type "text/html")))
#"<a href=\"/index.html\">Moved</a>"))))
(web-redirect/temporary! id "/index.html"))))