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

clean code

Browse source
This commit is contained in:
zapashcanon 2022-12-06 00:12:14 +01:00
parent 97864116bb
commit 20f18bcd76
No known key found for this signature in database
GPG key ID: 8981C3C62D1D28F1
24 changed files with 99 additions and 894 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/db.ml
View file

@ -36,7 +36,10 @@ let () =
exit 1
let unwrap_err = function
| Error e -> Error (Format.sprintf "db error: %s" (Caqti_error.show e))
| Error e ->
Error
( `Internal_Server_Error
, Format.sprintf "db error: %s" (Caqti_error.show e) )
| Ok _ as ok -> ok
let exec q v = Db.exec q v |> unwrap_err