2022-12-04 22:42:55 +01:00
|
|
|
let () =
|
|
|
|
|
let logger = if App.log then Dream.logger else Fun.id in
|
2022-12-06 01:00:39 +01:00
|
|
|
Dream.run ~port:App.port @@ logger @@ Dream.memory_sessions
|
2022-12-04 22:42:55 +01:00
|
|
|
@@ Dream.router
|
|
|
|
|
Dream.
|
2022-12-06 00:12:14 +01:00
|
|
|
[ get "/assets/**" Asset.get
|
|
|
|
|
; get "/" Home.get
|
2022-12-06 02:31:33 +01:00
|
|
|
; get "/island" Island.get
|
2022-12-11 18:58:56 +01:00
|
|
|
; get "/island/ws" (fun request ->
|
|
|
|
|
Dream.websocket @@ Ws.handle_client request )
|
2022-12-06 00:12:14 +01:00
|
|
|
; get "/login" Login.get
|
|
|
|
|
; post "/login" Login.post
|
2022-12-06 01:00:39 +01:00
|
|
|
; get "logout" Logout.get
|
2022-12-06 00:12:14 +01:00
|
|
|
; get "/register" Register.get
|
|
|
|
|
; post "/register" Register.post
|
2022-12-04 22:42:55 +01:00
|
|
|
]
|
