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

10
src/user.ml
View file

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