diff --git a/server-routes.rkt b/server-routes.rkt index 9aa2f06..ac0d46d 100644 --- a/server-routes.rkt +++ b/server-routes.rkt @@ -103,11 +103,10 @@ (define leftover-files (filter (λ(f) (and (not (equal? (->string f) "polcom")) ;todo: generalize this test (not ((->string f) . starts-with? . ".")) - (not (f . in? . all-pollen-files)))) + (not (f . in? . all-pollen-files)) + (not (f . in? . all-preproc-files)))) (directory-list pollen-project-directory))) - (message leftover-files) - ;; Utility function for making file rows (define (make-file-row file routes) ;; Utility function for making cells