diff --git a/utils.ml b/utils.ml
index 304b823..670ceff 100644
--- 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