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

fmt

Browse source
This commit is contained in:
zapashcanon 2021-11-07 01:42:43 +01:00
parent e7b944578e
commit c6760da250
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
1 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/user.ml
View file

@ -92,11 +92,11 @@ let profile request =
let user = let user =
Db.with_db (fun db -> Db.with_db (fun db ->
exec_raw_args db "SELECT * FROM user WHERE nick=?;" [| Data.TEXT nick |] exec_raw_args db "SELECT * FROM user WHERE nick=?;" [| Data.TEXT nick |]
~f:Cursor.to_list ~f:Cursor.to_list )
)
in in
match user with match user with
| Ok [[| Data.TEXT nick; Data.TEXT password; Data.TEXT email |]] -> | Ok [ [| Data.TEXT nick; Data.TEXT password; Data.TEXT email |] ] ->
Format.sprintf "nick = `%s`; password = `%s`; email = `%s`" nick password email Format.sprintf "nick = `%s`; password = `%s`; email = `%s`" nick password
email
| Ok _ -> "incoherent db answer" | Ok _ -> "incoherent db answer"
| Error e -> Format.sprintf "db error: %s" (Rc.to_string e) | Error e -> Format.sprintf "db error: %s" (Rc.to_string e)