diff --git a/engine/lib/dependencies.ml b/engine/lib/dependencies.ml index 1cfb0ba3b..667426d50 100644 --- a/engine/lib/dependencies.ml +++ b/engine/lib/dependencies.ml @@ -472,7 +472,7 @@ module Make (F : Features.T) = struct in let variants_renamings (previous_name, new_name) = match from_ident previous_name with - | Some { v = Type { variants; _ }; _ } -> + | Some { v = Type { variants; is_struct = false; _ }; _ } -> List.map variants ~f:(fun { name; _ } -> ( name, Concrete_ident.Create.move_under ~new_parent:new_name name ))