Move pexp_function_cases to interface

src/ast_builder.ml

@@ -428,6 +428,7 @@ end) : S = struct
   let ptyp_poly vars ty = Default.ptyp_poly ~loc vars ty
   let pexp_apply e el = Default.pexp_apply ~loc e el
   let pexp_fun lbl e1 p e2 = Default.pexp_fun ~loc lbl e1 p e2
+  let pexp_function_cases cases = Default.pexp_function_cases ~loc cases
   let eint t = Default.eint ~loc t
   let echar t = Default.echar ~loc t
   let estring t = Default.estring ~loc t

src/ast_builder.mli

@@ -56,17 +56,6 @@ module Default : sig
   val ppat_construct :
     loc:location -> longident loc -> pattern option -> pattern
 
-  val pexp_function :
-    loc:location ->
-    function_param list ->
-    type_constraint option ->
-    function_body ->
-    expression
-
-  val pexp_function_cases : loc:location -> Import.cases -> expression
-  (** [pexp_function_cases] builds an expression in the shape
-      [function C1 -> E1 | ...]. *)
-
   val coalesce_arity : expression -> expression
   (** [coalesce_arity e] will produce a maximum arity function from an
       expression.

src/ast_builder_intf.ml

@@ -45,6 +45,17 @@ module type Additional_helpers = sig
     (arg_label -> expression option -> pattern -> expression -> expression)
     with_loc
 
+  val pexp_function :
+    (function_param list ->
+    type_constraint option ->
+    function_body ->
+    expression)
+    with_loc
+
+  val pexp_function_cases : (Import.cases -> expression) with_loc
+  (** [pexp_function_cases] builds an expression in the shape
+      [function C1 -> E1 | ...]. *)
+
   val pconstruct : constructor_declaration -> pattern option -> pattern
   val econstruct : constructor_declaration -> expression option -> expression