9 lines
237 B
OCaml
9 lines
237 B
OCaml
|
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
|