Fix compiler error for opam

bn-d · Aug 24, 2021 · a820d9c · a820d9c
1 parent 3258bce
commit a820d9c
Showing 1 changed file with 2 additions and 9 deletions.
diff --git a/src/ppx_make_utils.ml b/src/ppx_make_utils.ml
@@ -102,12 +102,5 @@ let add_choice_to_expr choice expr =
       Ast_helper.Exp.construct lid (Some expr)
   | None -> expr
 
-let params_core_type_of_type_decl ~loc (td : P.type_declaration) =
-  List.map
-    (fun (ct, (variance, _)) ->
-      match variance with
-      | P.NoVariance -> ct
-      | _ ->
-          P.Location.raise_errorf ~loc
-            "only `Invariant` is supported for variance of params")
-    td.ptype_params
+let params_core_type_of_type_decl ~loc:_ (td : P.type_declaration) =
+  List.map (fun (ct, _) -> ct) td.ptype_params