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

use let* in user.ml

Browse source
This commit is contained in:
Swrup 2022-01-14 21:36:25 +01:00
parent a88ab15b35
commit 76ffec81d1
3 changed files with 83 additions and 100 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/babillard.ml
View file

@ -54,7 +54,7 @@ type post =
let ( let** ) o f =
match o with
| Error e -> Error (Format.sprintf "db error: %s" (Caqti_error.show e))
| Ok None -> Error (Format.sprintf "db error: value not found")
| Ok None -> Error "db error"
| Ok (Some x) -> f x
(* ('a, string) result *)