From 98ae0353f9cc02db73a1365ea0312f16cf585e43 Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Sat, 22 Nov 2025 10:48:12 +0100
Subject: Check for database file existence.

---
 main.rkt | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'main.rkt')

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)))
-- 
cgit v1.2.3