diff --git a/server-routes.rkt b/server-routes.rkt index 3dff708..f9f03d3 100644 --- a/server-routes.rkt +++ b/server-routes.rkt @@ -150,7 +150,10 @@ (define project-paths (filter-not ineligible-path? (directory-list dir))) (define (unique-sorted-output-paths xs) - (sort (set->list (list->set (map ->output-path xs))) #:key ->string stringlist (list->set (map ->output-path xs)))) + (define subdirectories (filter directory-exists? all-paths)) + (define files (filter-not directory-exists? all-paths)) + (report (append (sort subdirectories #:key ->string stringstring string