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
         gregor
         "handlers.rkt"
         "db/conn.rkt"
         "db/migrations.rkt"
         "db/seed.rkt")

(define-runtime-path development-db-path "storage/development.sqlite3")
(module+ main
  (parameterize ([current-timezone "Europe/Paris"]
                 [current-locale "FR"])
    (connect! #:path development-db-path)
    (migrate-all!)
    (seed-database!)
    (serve/dispatch (secured-dispatch))))