Fix derive projector arity.

cristianoc · cristianoc · commit a8250da8623e · 2024-12-18T11:59:57.000+01:00
diff --git a/compiler/frontend/ast_derive_projector.ml b/compiler/frontend/ast_derive_projector.ml
@@ -108,7 +108,7 @@ let init () =
                              annotate_type
                          in
                          Ext_list.fold_right vars exp (fun var b ->
-                             Ast_compatible.fun_ ~arity:(Some 1)
+                             Ast_compatible.fun_ ~arity:None
                                (Pat.var {loc; txt = var})
                                b)
                          |> handle_uncurried_accessor_tranform ~arity))
