Fix more URL structure

This commit is contained in:
Tony Garnock-Jones 2015-01-26 18:29:29 -05:00
parent ca25494909
commit 17e769739b

View File

@ -69,7 +69,6 @@
(define-values (request-handler relative-named-url) (define-values (request-handler relative-named-url)
(dispatch-rules (dispatch-rules
[("index") main-page]
[("") main-page] [("") main-page]
[("search") search-page] [("search") search-page]
[("package" (string-arg)) package-page] [("package" (string-arg)) package-page]
@ -106,7 +105,7 @@
;; " Download") ;; " Download")
;; "http://download.racket-lang.org/") ;; "http://download.racket-lang.org/")
)) ))
(bootstrap-static-urlprefix static-urlprefix) (bootstrap-static-urlprefix (if (use-cache?) static-urlprefix ""))
(jsonp-baseurl backend-baseurl)) (jsonp-baseurl backend-baseurl))
body ...)) body ...))