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 "/login" Login.get ; post "/login" Login.post ; get "logout" Logout.get ; get "/register" Register.get ; post "/register" Register.post ]