forked from zapashcanon/pellest
9 lines
237 B
OCaml
9 lines
237 B
OCaml
open Syntax
|
|
|
|
let get request =
|
|
let** () = User.assert_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
|