From ba56ffce0a6ba41b21b3afc01db23cb46e43a4f6 Mon Sep 17 00:00:00 2001
From: Florian Hammerschmidt <fh@cca.io>
Date: Fri, 22 Sep 2023 17:48:05 +0200
Subject: [PATCH] Add missing live annotation to fix roundtrip tests

---
 jscomp/gentype/TranslateStructure.ml | 1 +
 1 file changed, 1 insertion(+)

diff --git a/jscomp/gentype/TranslateStructure.ml b/jscomp/gentype/TranslateStructure.ml
index f20c518bf3a..7919fcd0427 100644
--- a/jscomp/gentype/TranslateStructure.ml
+++ b/jscomp/gentype/TranslateStructure.ml
@@ -55,6 +55,7 @@ and addAnnotationsToFields ~config (expr : Typedtree.expression)
     in
     ({field with nameJS = name} :: nextFields1, types1)
   | _ -> (fields, argTypes)
+  [@@live]
 
 (** Recover from expr the renaming annotations on named arguments. *)
 let addAnnotationsToFunctionType ~config (expr : Typedtree.expression)