Export Ast_pattern.fail. Enables writing more custom patterns via of_func.

Signed-off-by: Carl Eastlund <[email protected]>

Author: ceastlund

Diff for: CHANGES.md

@@ -1,6 +1,8 @@
 unreleased
 ----------
 
+- Export `Ast_pattern.fail`. (#563, @ceastlund)
+
 0.35.0 (2025-02-03)
 -------------------
 

Diff for: 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. *)