13 lines
446 B
OCaml
13 lines
446 B
OCaml
let () =
|
|
let logger = if App.log then Dream.logger else Fun.id in
|
|
Dream.run ~port:App.port ~error_handler:(Dream.error_template Template.error)
|
|
@@ logger @@ Dream.memory_sessions
|
|
@@ Dream.router
|
|
Dream.
|
|
[ get "/assets/**" Asset.get
|
|
; get "/" Home.get
|
|
; get "/login" Login.get
|
|
; post "/login" Login.post
|
|
; get "/register" Register.get
|
|
; post "/register" Register.post
|
|
]
|