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