fix issue with server projects dir initialization

2021-01-10 05:37:35 -05:00 · 2021-01-10 05:37:35 -05:00 · e1162166b7
parent b4b31436ce
commit e1162166b7
1 changed files with 2 additions and 0 deletions
--- a/crossfire/server.rkt
+++ b/crossfire/server.rkt
@ -130,6 +130,8 @@

 ;; cleanly recovers from potential crash situations
 (define (server-cleanup-unused-files)
+  (unless (directory-exists? *server-files-path*)
+    (make-directory* *server-files-path*))
  (define existing-ids (mutable-set))
  (call-with-transaction (current-db) (lambda ()
    (define (cleanup id exists? path)