fix: record labels

reasonml · Nov 11, 2024 · c6a6581 · c6a6581
1 parent 87f10ff
commit c6a6581
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 3 deletions.
diff --git a/src/reason-parser/reason_pprint_ast.ml b/src/reason-parser/reason_pprint_ast.ml
@@ -3109,9 +3109,8 @@ let createFormatter () =
           let recordRow pld =
             let hasPunning = recordRowIsPunned pld in
             let name =
-              if hasPunning
-              then [ atom pld.pld_name.txt ]
-              else [ atom pld.pld_name.txt; atom ":" ]
+              let name = add_raw_identifier_prefix pld.pld_name.txt in
+              if hasPunning then [ atom name ] else [ atom name; atom ":" ]
             in
             let name = source_map ~loc:pld.pld_name.loc (makeList name) in
             let withMutable =

diff --git a/test/raw-identifiers.t/input.re b/test/raw-identifiers.t/input.re
@@ -26,3 +26,13 @@ type y = [ | \#module ]
 let x = `\#module
 
 external \#external: unit => unit = "external";
+
+type \#rec = {
+  \#type: \#type,
+  \#module: module_
+};
+
+let \#rec = {
+  \#type: \#type,
+  \#module: module_
+}
diff --git a/test/raw-identifiers.t/run.t b/test/raw-identifiers.t/run.t
@@ -28,6 +28,16 @@ Test raw identifiers in Reason syntax
   let x = `\#module;
 
   external \#external: unit => unit = "external";
+
+  type \#rec = {
+    \#type,
+    \#module: module_,
+  };
+
+  let \#rec = {
+    \#type,
+    \#module: module_,
+  };
 
 Check idempotency