blob: 975be57b0b6d30019c234100dc9b7d3c73cfc055 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#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)
(migrate-all!)
(seed-database!)
(serve/dispatch app-dispatch)))
|
