diff --git a/lib/util/parser.ml b/lib/util/parser.ml index 98ceeef..a6fc15b 100644 --- a/lib/util/parser.ml +++ b/lib/util/parser.ml @@ -3,6 +3,10 @@ module A = Angstrom module Syntax = struct module Let_syntax = A.Let_syntax.Let_syntax + let ( let+ ) = A.( let+ ) + let ( and+ ) = A.( and+ ) + let ( let* ) = A.( let* ) + let ( >>| ), ( *> ), ( <* ), ( <|> ), ( <$> ) = A.(( >>| ), ( *> ), ( <* ), ( <|> ), ( <$> )) ;; diff --git a/lib/util/parser.mli b/lib/util/parser.mli index f7000a0..103d45a 100644 --- a/lib/util/parser.mli +++ b/lib/util/parser.mli @@ -5,6 +5,9 @@ module Syntax : sig include module type of A.Let_syntax.Let_syntax end + val ( let+ ) : 'a A.t -> ('a -> 'b) -> 'b A.t + val ( and+ ) : 'a A.t -> 'b A.t -> ('a * 'b) A.t + val ( let* ) : 'a A.t -> ('a -> 'b A.t) -> 'b A.t val ( *> ) : 'a A.t -> 'b A.t -> 'b A.t val ( <* ) : 'a A.t -> 'b A.t -> 'a A.t val ( >>| ) : 'a A.t -> ('a -> 'b) -> 'b A.t