Fix 1749 Creating anonymous record based on a function call with a list arg fails

src/Fantomas.Tests/MultilineBlockBracketsOnSameColumnRecordTests.fs

@@ -3,6 +3,7 @@ module Fantomas.Tests.MultilineBlockBracketsOnSameColumnRecordTests
 open NUnit.Framework
 open FsUnit
 open Fantomas.Tests.TestHelper
+open Fantomas.FormatConfig
 
 let config =
     { config with
@@ -1189,3 +1190,42 @@ let ``anonymous records with comments on record fields`` () =
     BarValue = barValue
 |}
 """
+
+[<Test>]
+let ``creating anonymous record based on a function call, 1749`` () =
+    formatSourceString
+        false
+        """
+type Foo = static member Create a = {| Name = "Isaac" |}
+type Bar() = member _.Create (a,b) = ()
+let bar = Bar()
+type Thing = static member Stuff = 123
+let x = {| Foo.Create ([ bar.Create(Thing.Stuff, Thing.Stuff) ]) with Age = 41 |}
+"""
+        { config with
+            ArrayOrListMultilineFormatter = MultilineFormatterType.CharacterWidth
+            SpaceBeforeUppercaseInvocation = true }
+    |> prepend newline
+    |> should
+        equal
+        """
+type Foo =
+    static member Create a = {| Name = "Isaac" |}
+
+type Bar() =
+    member _.Create(a, b) = ()
+
+let bar = Bar ()
+
+type Thing =
+    static member Stuff = 123
+
+let x =
+    {| Foo.Create (
+           [
+               bar.Create (Thing.Stuff, Thing.Stuff)
+           ]
+       ) with
+        Age = 41
+    |}
+"""

src/Fantomas/CodePrinter.fs

@@ -3099,7 +3099,7 @@ and genMultilineAnonRecordAlignBrackets (isStruct: bool) fields copyInfo astCont
     let fieldsExpr = col sepSemiNln fields (genAnonRecordFieldName astContext)
 
     let copyExpr fieldsExpr e =
-        genExpr astContext e
+        atCurrentColumnIndent (genExpr astContext e)
         +> (!- " with"
             +> indent
             +> whenShortIndent indent