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

use marshal for user metadata

Browse source
This commit is contained in:
Swrup 2022-03-09 19:59:46 +01:00
parent 2c8c02d7e6
commit 5c019df8b4
3 changed files with 40 additions and 47 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/permap.ml
View file

@ -220,14 +220,14 @@ let account_post request =
(*TODO ask for confirmation *)
let res =
Result.fold ~error:Fun.id
~ok:(fun _ -> "Your account was deleted")
~ok:(fun () -> "Your account was deleted")
(User.delete_user user_id)
in
render_unsafe res request
| `Ok [ ("email", email) ] ->
let res =
Result.fold ~error:Fun.id
~ok:(fun _ -> "Your email was updated!")
~ok:(fun () -> "Your email was updated!")
(User.update_email email user_id)
in
render_unsafe res request