nits

server.rkt

@@ -9,7 +9,7 @@
 
 (define-values (pollen-servlet _)
   (dispatch-rules
-   [((string-arg) ... (? (λ(x) (x . has-ext? . world:ptree-source-ext)))) route-dashboard]
+   [((string-arg) ... (? ptree-source?)) route-dashboard]
    [((string-arg) ... "in" (string-arg)) route-in]
    [((string-arg) ... "out" (string-arg)) route-out]
    [((string-arg) ... "xexpr" (string-arg)) route-xexpr]

tests/test-file-tools.rkt

@@ -85,7 +85,7 @@
   (check-false (markup-source? #f)))
 
 (module+ test
-  (check-true (template-source? "-foo.html"))
+  (check-true (template-source? "foo.html.pt"))
   (check-false (template-source? "foo.html"))
   (check-false (template-source? #f)))