blob: 03cceebce85536b3bb6e69553b247b5864e266a7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
#lang racket
(require web-server/dispatch
racket/runtime-path
"handlers.rkt"
"db/conn.rkt"
"db/migrations.rkt"
"db/seed.rkt")
(define-runtime-path development-db-path "storage/development.sqlite3")
(module+ main
(with-handlers ([exn:fail? (λ (e)
(printf "Startup error: ~a\n" (exn-message e))
(exit 1))])
(connect! #:path development-db-path)
(if (file-exists? development-db-path)
(printf "Database already exists: ~a" development-db-path)
(begin
(migrate-all!)
(seed-database!)))
(serve/dispatch secured-dispatch)))
|
