diff --git a/pollen/private/project-server.rkt b/pollen/private/project-server.rkt index 946dc47..722f9e1 100755 --- a/pollen/private/project-server.rkt +++ b/pollen/private/project-server.rkt @@ -1,9 +1,8 @@ #lang web-server/base - (require racket/list web-server/servlet-env - web-server/dispatch) -(require "project-server-routes.rkt" + web-server/dispatch + "project-server-routes.rkt" "debug.rkt" "../setup.rkt" "../file.rkt" @@ -15,7 +14,7 @@ (define (start-server servlet-path [open-browser-window? #f]) (define-values (pollen-servlet _) (dispatch-rules - [((string-arg) ... (? (λ (x) (equal? "" x)))) route-index] ; last element of a "/"-terminated url is "" + [((string-arg) ... (? (λ (x) (string=? "" x)))) route-index] ; last element of a "/"-terminated url is "" [((string-arg) ... (? pagetree-source?)) route-dashboard] [((string-arg) ... "in" (string-arg) ...) route-in] [((string-arg) ... "out" (string-arg) ...) route-out] diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 6f9dcf5..75345d8 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1540858391 +1540858394