main.rkt


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#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 (secured-dispatch))))