16 lines
567 B
OCaml
16 lines
567 B
OCaml
let () =
|
|
let logger = if App.log then Dream.logger else Fun.id in
|
|
Dream.run ~port:App.port @@ logger @@ Dream.memory_sessions
|
|
@@ Dream.router
|
|
Dream.
|
|
[ get "/assets/**" Asset.get
|
|
; get "/" Home.get
|
|
; get "/island" Island.get
|
|
; get "/island/ws" (fun request ->
|
|
Dream.websocket @@ Ws.handle_client request )
|
|
; get "/login" Login.get
|
|
; post "/login" Login.post
|
|
; get "logout" Logout.get
|
|
; get "/register" Register.get
|
|
; post "/register" Register.post
|
|
]
|