Export Ast_pattern.fail. Enables writing more custom patterns via `…

…of_func`. Signed-off-by: Carl Eastlund <[email protected]>
ocaml-ppx · Feb 11, 2025 · b5d4b64 · b5d4b64
1 parent 771d4d9
commit b5d4b64
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/ast_pattern.mli b/src/ast_pattern.mli
@@ -210,3 +210,6 @@ type context
 
 val of_func : (context -> Location.t -> 'a -> 'b -> 'c) -> ('a, 'b, 'c) t
 val to_func : ('a, 'b, 'c) t -> context -> Location.t -> 'a -> 'b -> 'c
+
+val fail : Location.t -> string -> _
+(** Call from [of_func]'s argument when the pattern does not match. *)