main.rkt


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

#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)))