summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--main.rkt12
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)))
Copyright 2019--2026 Marius PETER