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

fix update_email to already a taken one

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

6
src/user.ml
View file

@ -139,7 +139,9 @@ let () =
(Array.map (fun query -> Db.exec query ()) tables)
then Dream.error (fun log -> log "can't create user tables")
let exist_nick nick = Result.is_ok (Db.find Q.get_user nick)
let exist_nick nick = Result.is_ok (Db.find Q.get_user_id_from_nick nick)
let exist_email email = Result.is_ok (Db.find Q.get_user_id_from_email email)
let get_metadata nick =
let^ metadata = Db.find Q.get_metadata nick in
@ -286,8 +288,10 @@ let update_nick nick user_id =
let update_email email user_id =
if valid_email email then
if not (exist_email email) then
let^ () = Db.exec Q.update_email (email, user_id) in
Ok ()
else Error "email already taken"
else Error "invalid email"
let update_password password user_id =