From be3dfabf28693870c70efe5e4d248ee95124eea6 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 26 Feb 2014 12:47:32 -0800 Subject: [PATCH] nits --- server.rkt | 2 +- tests/test-file-tools.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/server.rkt b/server.rkt index 121e25c..864fe1d 100755 --- a/server.rkt +++ b/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] diff --git a/tests/test-file-tools.rkt b/tests/test-file-tools.rkt index 12deba5..9cc994e 100644 --- a/tests/test-file-tools.rkt +++ b/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)))