Comments in anonymous records

CHANGELOG.md

@@ -1,5 +1,10 @@
 # Changelog
 
+## [5.0.3] - 2022-09-29
+
+### Fixed
+* Comments in anonymous record deleted after formatting. [#2538](https://github.com/fsprojects/fantomas/issues/2538)
+
 ## [5.0.2] - 2022-09-22
 
 ### Fixed

src/Fantomas.Core.Tests/CommentTests.fs

@@ -2515,3 +2515,22 @@ type X =
             // The 'Cancel' member
             (System.IAsyncResult -> unit)
 """
+
+[<Test>]
+let ``comments in anonymous records, 2538`` () =
+    formatSourceString
+        false
+        """
+let Anonymous =
+    {| FontFamily = 700 // font-weight
+       FontSize = 48. |} // font-weight
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let Anonymous =
+    {| FontFamily = 700 // font-weight
+       FontSize = 48. |} // font-weight
+"""

src/Fantomas.Core/CodePrinter.fs

@@ -2565,7 +2565,8 @@ and genMultilineAnonRecord (isStruct: bool) fields copyInfo (astContext: ASTCont
                          addFixedSpaces targetColumn
                          +> atCurrentColumn (enterNodeFor SynExpr_AnonRecd_Field range +> genIdent ident)
                          +> genEq SynExpr_AnonRecd_Field_Equals eq
-                         +> expr)
+                         +> expr
+                         +> leaveNodeFor SynExpr_AnonRecd_Field range)
                      +> sepCloseAnonRecd)
                     ctx