Add angstrom letops

drewolson · Oct 25, 2023 · f9c8941 · f9c8941
1 parent 336101b
commit f9c8941
Show file tree

Hide file tree

Showing 2 changed files with 7 additions and 0 deletions.
diff --git 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
@@ -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