Keep Subsequent identifier links on the same line.

CHANGELOG.md

@@ -5,6 +5,7 @@
 ### Fixed
 * Trivia before open statement is not preserved. [#2704](https://github.com/fsprojects/fantomas/issues/2704)
 * Type app identifier is considered as an expression. [#2705](https://github.com/fsprojects/fantomas/issues/2705)
+* Subsequent identifier links in chain should be on the same line. [#2712](https://github.com/fsprojects/fantomas/issues/2712)
 
 ## [5.2.0-alpha-011] - 2023-01-12
 

src/Fantomas.Core.Tests/ChainTests.fs

@@ -299,3 +299,52 @@ Map
 Map.empty<_, obj>
     .Add("headerAction", modifyHeader.Action.ArmValue)
 """
+
+[<Test>]
+let ``all simple links should be on the same line, 2712`` () =
+    formatSourceString
+        false
+        """
+type Duck() =
+    member this.Duck  = Duck ()
+    member this.Goose() = Duck()
+
+let d = Duck()
+
+d.Duck.Duck.Duck.Goose().Duck.Goose().Duck.Duck.Goose().Duck.Duck.Duck.Goose().Duck.Duck.Duck.Duck.Goose()
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+type Duck() =
+    member this.Duck = Duck()
+    member this.Goose() = Duck()
+
+let d = Duck()
+
+d.Duck.Duck.Duck
+    .Goose()
+    .Duck.Goose()
+    .Duck.Duck.Goose()
+    .Duck.Duck.Duck.Goose()
+    .Duck.Duck.Duck.Duck.Goose()
+"""
+
+[<Test>]
+let ``very long chain with a some index expressions`` () =
+    formatSourceString
+        false
+        """
+Universe.Galaxy.SolarSystem.Planet.[3].Countries.[9].People.Count
+"""
+        { config with
+            MaxDotGetExpressionWidth = 0 }
+    |> prepend newline
+    |> should
+        equal
+        """
+Universe
+    .Galaxy.SolarSystem.Planet.[3].Countries.[9].People.Count
+"""

src/Fantomas.Core.Tests/LambdaTests.fs

@@ -320,8 +320,7 @@ CloudStorageAccount.SetConfigurationSettingPublisher(fun configName configSettin
             RoleEnvironment.GetConfigurationSettingValue(configName)
         else
             ConfigurationManager
-                .ConnectionStrings.[configName]
-                .ConnectionString
+                .ConnectionStrings.[configName].ConnectionString
 
     configSettingPublisher.Invoke(connectionString)
     |> ignore)

src/Fantomas.Core.Tests/TypeDeclarationTests.fs

@@ -825,8 +825,7 @@ type BlobHelper(Account: CloudStorageAccount) =
                     RoleEnvironment.GetConfigurationSettingValue(configName)
                 else
                     ConfigurationManager
-                        .ConnectionStrings.[configName]
-                        .ConnectionString
+                        .ConnectionStrings.[configName].ConnectionString
 
             configSettingPublisher.Invoke(connectionString)
             |> ignore)

src/Fantomas.Core/CodePrinter.fs

@@ -1096,8 +1096,10 @@ let genExpr (e: Expr) =
 
                     if lastLinkWasSimple && not (futureNlnCheck genDotAndLink ctx) then
                         // The last link was an identifier and the current link fits on the remainder of the current line.
-                        genIndentedLinks currentIsSimple rest ((genDotAndLink +> onlyIfNot isLast sepNln) ctx)
+                        genIndentedLinks currentIsSimple rest (genDotAndLink ctx)
                     else
+                        let ctx' = onlyIfNot lastLinkWasSimple sepNlnUnlessLastEventIsNewline ctx
+
                         genIndentedLinks
                             currentIsSimple
                             rest
@@ -1106,7 +1108,7 @@ let genExpr (e: Expr) =
                               // Don't suffix with a newline if we are at the end of the chain,
                               // or if the current link is an identifier.
                               +> onlyIfNot (isLast || currentIsSimple) sepNln)
-                                ctx)
+                                ctx')
                 | _ -> failwith "Expected dot in chain at this point"
 
             let genFirstLinkAndIndentOther (firstLink: ChainLink) (others: ChainLink list) =