fix project server routes to work with files in subdirs

pull/127/head
Matthew Butterick 8 years ago
parent 2dd2ab43a6
commit 580868e1f7

@ -15,9 +15,9 @@
(define (start-server) (define (start-server)
(define-values (pollen-servlet _) (define-values (pollen-servlet _)
(dispatch-rules (dispatch-rules
[((string-arg) ... (? pagetree-source?)) route-dashboard] [((? pagetree-source?)) route-dashboard]
[((string-arg) ... "in" (string-arg)) route-in] [("in" (string-arg) ...) route-in]
[((string-arg) ... "out" (string-arg)) route-out] [("out" (string-arg) ...) route-out]
[else route-default])) [else route-default]))
(message (format "Welcome to Pollen ~a" pollen:version) (format "(Racket ~a)" (version))) (message (format "Welcome to Pollen ~a" pollen:version) (format "(Racket ~a)" (version)))

@ -1 +1 @@
1469749257 1469749293

Loading…
Cancel
Save