Add exception handling at the top level function.

1 files 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)))