Comments in anonymous records (#2539)

* Comments in anonymous records * Add release notes for 5.0.3. Co-authored-by: nojaf <[email protected]>
fsprojects · Sep 29, 2022 · f1ec008 · f1ec008
1 parent 6db23bd
commit f1ec008
Show file tree

Hide file tree

Showing 3 changed files with 26 additions and 1 deletion.
diff --git a/CHANGELOG.md b/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

diff --git a/src/Fantomas.Core.Tests/CommentTests.fs b/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
+"""
diff --git a/src/Fantomas.Core/CodePrinter.fs b/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