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

Redirect / to /index.html

This commit is contained in:
Tony Garnock-Jones 2016-11-22 16:44:00 +13:00
parent 302f0d0c2d
commit a7d4e23124
1 changed files with 10 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
racketmq/hub.rkt
View File

@ -8,6 +8,7 @@
(require "protocol.rkt")
(require/activate syndicate/drivers/timestate)
(require/activate syndicate/drivers/web)
(require/activate "config.rkt")
(require/activate "hub/static-content.rkt")
(require/activate "hub/topic-demand.rkt")
@ -52,4 +53,12 @@
(assert (http-listener h p)))
(during (http-listener $host-name $port)
(assert (vh 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>"))))