diff --git a/src/permap.ml b/src/permap.ml index 8f0312d..10021e6 100644 --- a/src/permap.ml +++ b/src/permap.ml @@ -207,7 +207,9 @@ let account_post request = (*TODO ask for confirmation *) let res = Result.fold ~error:Fun.id - ~ok:(fun () -> "Your account was deleted") + ~ok:(fun () -> + let _unit_lwt = Dream.invalidate_session request in + "Your account was deleted" ) (User.delete_user user_id) in render_unsafe res request