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

more fixes

Browse source
This commit is contained in:
Swrup 2022-02-18 03:22:24 +01:00
parent 8ec7533db1
commit 01e62889e2
4 changed files with 20 additions and 29 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/bindings.ml
View file

@ -11,4 +11,4 @@ let ( let^ ) o f =
| Error e -> Error (Format.sprintf "db error: %s" (Caqti_error.show e))
| Ok x -> f x
let ( let* ) o f = match o with Error e -> Error e | Ok x -> f x
let ( let* ) o f = Result.fold ~ok:f ~error:Result.error o