Merge pull request #3166 from dawedawe/fix_3162

Fix anonymous records in interpolated strings

Author: nojaf

CHANGELOG.md

@@ -1,13 +1,14 @@
 # Changelog
 
-## [Unreleased]
+## 7.0.2 - 2025-05-27
 
 ### Changed
 
 * Print version at beginning of execution when detailed verbosity is set. [3148](https://github.com/fsprojects/fantomas/issues/3148)
 
 ### Fixed
 
+* Anonymous records in interpolated strings. [#3162](https://github.com/fsprojects/fantomas/issues/3162)
 * Preserve backticks in active pattern idents. [#3126](https://github.com/fsprojects/fantomas/issues/3126)
 * New lines are added after comment in measure type. [#3145](https://github.com/fsprojects/fantomas/issues/3145)
 * Idempotency problem with comments in applications on lambda expressions. [#3128](https://github.com/fsprojects/fantomas/issues/3128)

src/Fantomas.Core.Tests/InterpolatedStringTests.fs

@@ -376,3 +376,31 @@ let x = $$$\"\"\"one {{{1}}} two {{{2}}} three {{{3}}}\"\"\"
         "
 let x = $$$\"\"\"one {{{1}}} two {{{2}}} three {{{3}}}\"\"\"
 "
+
+[<Test>]
+let ``anonymous record in interpolated string, 3162`` () =
+    formatSourceString
+        "
+$\"\"\"{ {| Prop = \"XYZ\" |} }\"\"\"
+"
+        config
+    |> prepend newline
+    |> should
+        equal
+        "
+$\"\"\"{ {| Prop = \"XYZ\" |} }\"\"\"
+"
+
+[<Test>]
+let ``seq without seq keyword in interpolated string`` () =
+    formatSourceString
+        "
+$\"\"\"{ { 1..3 } }\"\"\"
+"
+        config
+    |> prepend newline
+    |> should
+        equal
+        "
+$\"\"\"{ { 1..3 } }\"\"\"
+"

src/Fantomas.Core/CodePrinter.fs

@@ -1543,8 +1543,17 @@ let genExpr (e: Expr) =
             | Choice1Of2 stringNode -> genSingleTextNode stringNode
             | Choice2Of2 fillNode ->
                 fun ctx ->
+                    let sep =
+                        match fillNode.Expr with
+                        | Expr.AnonStructRecord _
+                        | Expr.Record _
+                        | Expr.Computation _ -> sepSpace
+                        | _ -> sepNone
+
                     let genFill =
-                        genInterpolatedFillExpr fillNode.Expr
+                        sep
+                        +> genInterpolatedFillExpr fillNode.Expr
+                        +> sep
                         +> optSingle (fun format -> sepColonFixed +> genSingleTextNode format) fillNode.Ident
 
                     genFill ctx)