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

Browse source
This commit is contained in:
swrup 2025-10-17 15:25:10 +02:00
parent a27af0ecf1
commit a41a8f4087
5 changed files with 34 additions and 14 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/syntax.ml
View file

@ -1,6 +1,9 @@
let ( let* ) o f = match o with Ok v -> f v | Error _ as e -> e
let ( let+ ) o f = match o with Ok v -> Ok (f v) | Error _ as e -> e
(* TODO use polymorphic variant for errors *)
let unwrap_err_msg o = match o with Error (`Msg e) -> Error e | Ok v -> Ok v
let list_iter f l =
let err = ref None in
try