swrup/geochan
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

invalidate session after account delete

Browse source
This commit is contained in:
Swrup 2022-04-01 05:35:33 +02:00
parent 6980a57b18
commit a12bfaa1cd
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/permap.ml
View file

@ -207,7 +207,9 @@ let account_post request =
(*TODO ask for confirmation *) (*TODO ask for confirmation *)
let res = let res =
Result.fold ~error:Fun.id 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) (User.delete_user user_id)
in in
render_unsafe res request render_unsafe res request