Add infix operators

2 years ago · 482bc9ecb6
parent 3504737de8
commit 482bc9ecb6
1 changed files with 3 additions and 0 deletions
--- a/utils.ml
+++ b/utils.ml
@ -2,3 +2,6 @@ let rec deoptionalise = function
  | Some x :: xs -> x :: deoptionalise xs
  | None :: xs -> deoptionalise xs
  | [] -> []
+
+let ( &?> ) left right = match left with Error _ -> right | ok -> ok
+let ( &> ) left right = match left with Error _ -> right | Ok ok -> ok