Check if we just wrote a DotLambda on a record value before deciding on space before parens, fix 3120

CHANGELOG.md

@@ -1,5 +1,10 @@
 # Changelog
 
+## 6.3.14 - 2024-09-14
+
+### Fixed
+* Idempotency problem when _.Property shorthand with record value. [#3120](https://github.com/fsprojects/fantomas/issues/3120)
+
 ## 6.3.13 - 2024-09-10
 
 ### Fixed

src/Fantomas.Core.Tests/DotLambdaTests.fs

@@ -75,6 +75,21 @@ let ``idempotency problem when _.Property shorthand, 3050`` () =
 "ABC" |> _.ToLower()
 """
 
+[<Test>]
+let ``idempotency problem with _.Property shorthand with record value, 3120`` () =
+    formatSourceString
+        """
+_.A.ToLower()
+"""
+        { config with
+            SpaceBeforeUppercaseInvocation = true }
+    |> prepend newline
+    |> should
+        equal
+        """
+_.A.ToLower()
+"""
+
 [<Test>]
 let ``idempotency problem when _.property shorthand lowercase, 3050`` () =
     formatSourceString

src/Fantomas.Core/CodePrinter.fs

@@ -1572,6 +1572,7 @@ let genExpr (e: Expr) =
         let genDotLambdaExpr expr =
             match expr with
             | Expr.AppSingleParenArg p -> genAppSingleParenArgExpr sepNone p // be always atomic, see 3050
+            | Expr.AppLongIdentAndSingleParenArg p -> genAppLongIdentAndSingleParenArgExpr sepNone p // see 3120
             | _ -> genExpr expr
 
         genSingleTextNode node.Underscore