From b21e13be415fb62bf8bec4e319511893b1f49cd8 Mon Sep 17 00:00:00 2001
From: Maxime Buyse <maxime@cryspen.com>
Date: Thu, 3 Oct 2024 14:24:29 +0200
Subject: [PATCH] Ignore structs in variants renaming for bundling (only enums
 are relevant here).

---
 engine/lib/dependencies.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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 ))