diff options
| -rw-r--r-- | main.rkt | 12 |
1 files changed, 8 insertions, 4 deletions
@@ -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))) |