diff --git a/pollen/private/project-server.rkt b/pollen/private/project-server.rkt index 90d28da..adc3e37 100755 --- a/pollen/private/project-server.rkt +++ b/pollen/private/project-server.rkt @@ -15,9 +15,9 @@ (define (start-server) (define-values (pollen-servlet _) (dispatch-rules - [((string-arg) ... (? pagetree-source?)) route-dashboard] - [((string-arg) ... "in" (string-arg)) route-in] - [((string-arg) ... "out" (string-arg)) route-out] + [((? pagetree-source?)) route-dashboard] + [("in" (string-arg) ...) route-in] + [("out" (string-arg) ...) route-out] [else route-default])) (message (format "Welcome to Pollen ~a" pollen:version) (format "(Racket ~a)" (version))) diff --git a/pollen/private/ts.rktd b/pollen/private/ts.rktd index 3ff00e7..bc772f0 100644 --- a/pollen/private/ts.rktd +++ b/pollen/private/ts.rktd @@ -1 +1 @@ -1469749257 +1469749293