From 77a113ac756e071348b5499d1660563f63f415b5 Mon Sep 17 00:00:00 2001
From: Marius Peter <dev@marius-peter.com>
Date: Fri, 21 Nov 2025 20:26:44 +0100
Subject: Add exception handling at the top level function.

---
 main.rkt | 12 ++++++++----
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/main.rkt b/main.rkt
index 0f2f37e..975be57 100644
--- a/main.rkt
+++ b/main.rkt
@@ -9,7 +9,11 @@
 
 (define-runtime-path development-db-path "storage/development.sqlite3")
 (module+ main
-  (connect! #:path development-db-path)
-  (migrate-all!)
-  (seed-database!)
-  (serve/dispatch app-dispatch))
+  (with-handlers ([exn:fail?
+                   (λ (e)
+                     (printf "Startup error: ~a\n" (exn-message e))
+                     (exit 1))])
+    (connect! #:path development-db-path)
+    (migrate-all!)
+    (seed-database!)
+    (serve/dispatch app-dispatch)))
-- 
cgit v1.2.3