Idempotency problem when using lower MaxLineLength than default and f…

…antomas needs to split lines

 Fixes fsprojects#2176

CHANGELOG.md

@@ -5,6 +5,7 @@
 ### Fixed
 * SRTP or condition disappear when non-generic type is used. [#2168](https://github.com/fsprojects/fantomas/issues/2168)
 * Multiline AbstractSlot without constraints introduces newline [#2175](https://github.com/fsprojects/fantomas/issues/2175)
+* Multiline parentheses objectExpression in indexer expression, 2176 [#2176](https://github.com/fsprojects/fantomas/issues/2176)
 
 ## [4.7.5] - 2022-03-27
 

src/Fantomas.Tests/DotIndexedGetTests.fs

@@ -127,3 +127,42 @@ a
     )
     .Meh().[0]
 """
+
+[<Test>]
+let ``multiline parentheses objectExpression in indexer expression, 2176`` () =
+    formatSourceString
+        false
+        """
+namespace FSX.Infrastructure
+
+module Unix =
+
+    let GrabTheFirstStringBeforeTheFirstColon (lines: seq<string>) =
+        seq {
+            for line in lines do
+                yield
+                    (line.Split(
+                        [| ":" |],
+                        StringSplitOptions.RemoveEmptyEntries
+                    )).[0]
+        }
+"""
+        { config with MaxLineLength = 80 }
+    |> prepend newline
+    |> should
+        equal
+        """
+namespace FSX.Infrastructure
+
+module Unix =
+
+    let GrabTheFirstStringBeforeTheFirstColon (lines: seq<string>) =
+        seq {
+            for line in lines do
+                yield
+                    (line.Split(
+                        [| ":" |],
+                        StringSplitOptions.RemoveEmptyEntries
+                    )).[0]
+        }
+"""

src/Fantomas/CodePrinter.fs

@@ -2453,7 +2453,12 @@ and genExpr astContext synExpr ctx =
 
             expressionFitsOnRestOfLine (short +> idx) (long +> idx)
         | DotIndexedGet (objectExpr, indexArgs) ->
-            addParenIfAutoNln objectExpr (genExpr astContext)
+            let isParen =
+                match objectExpr with
+                | Paren _ -> true
+                | _ -> false
+
+            ifElse isParen (genExpr astContext objectExpr) (addParenIfAutoNln objectExpr (genExpr astContext))
             -- "."
             +> sepOpenLFixed
             +> genExpr astContext indexArgs