Check for database file existence.

1 files changed, 5 insertions, 2 deletions

diff --git a/main.rkt b/main.rkt
index 4bf74ff..4cf8e9f 100644
--- a/main.rkt
+++ b/main.rkt
@@ -14,6 +14,9 @@
                      (printf "Startup error: ~a\n" (exn-message e))
                      (exit 1))])
     (connect! #:path development-db-path)
-    (migrate-all!)
-    (seed-database!)
+    (if (file-exists? development-db-path)
+        (printf "Database already exists: ~a" development-db-path)
+        (begin
+          (migrate-all!)
+          (seed-database!)))
     (serve/dispatch secured-dispatch)))