open Syntax let get request = let** () = User.asserd_logged request in let title = "Logout" in let%lwt () = Dream.invalidate_session request in let page = Tyxml.Html.txt "logged out" in Template.render ~title ~scripts:[] page