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

…of_func`. Signed-off-by: Carl Eastlund <[email protected]>
ocaml-ppx · Feb 11, 2025 · 33ac996 · 33ac996
1 parent 771d4d9
commit 33ac996
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 0 deletions.
diff --git a/CHANGES.md b/CHANGES.md
@@ -1,6 +1,8 @@
 unreleased
 ----------
 
+- Export `Ast_pattern.fail`. (#563, @ceastlund)
+
 0.35.0 (2025-02-03)
 -------------------
 

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. *)