Add Mod.apply_unit

craff · craff · commit 3573eeab338c · 2025-10-27T08:52:33.000-10:00
Signed-off-by: christophe Raffalli &lt;christophe@raffallu.eu&gt;

Signed-off-by: craff &lt;christophe@raffalli.eu&gt;
diff --git a/ast/ast_helper_lite.ml b/ast/ast_helper_lite.ml
@@ -280,6 +280,7 @@ module Mod = struct
   let structure ?loc ?attrs x = mk ?loc ?attrs (Pmod_structure x)
   let functor_ ?loc ?attrs arg body = mk ?loc ?attrs (Pmod_functor (arg, body))
   let apply ?loc ?attrs m1 m2 = mk ?loc ?attrs (Pmod_apply (m1, m2))
+  let apply_unit ?loc ?attrs m1 = mk ?loc ?attrs (Pmod_apply_unit m1)
   let constraint_ ?loc ?attrs m mty = mk ?loc ?attrs (Pmod_constraint (m, mty))
   let unpack ?loc ?attrs e = mk ?loc ?attrs (Pmod_unpack e)
   let extension ?loc ?attrs a = mk ?loc ?attrs (Pmod_extension a)
diff --git a/ast/ast_helper_lite.mli b/ast/ast_helper_lite.mli
@@ -381,6 +381,9 @@ module Mod : sig
   val apply :
     ?loc:loc -> ?attrs:attrs -> module_expr -> module_expr -> module_expr
 
+  val apply_unit :
+    ?loc:loc -> ?attrs:attrs -> module_expr -> module_expr
+
   val constraint_ :
     ?loc:loc -> ?attrs:attrs -> module_expr -> module_type -> module_expr
 
