Merge pull request #3170 from nojaf/fix-1999

Check if application and idx are actually multiline.

Author: nojaf

CHANGELOG.md

@@ -1,5 +1,11 @@
 # Changelog
 
+## 7.0.3 - 2025-07-04
+
+### Fixed
+
+* Application in indexed set should not be multiline. [#1999](https://github.com/fsprojects/fantomas/issues/1999)
+
 ## 7.0.2 - 2025-05-27
 
 ### Changed

src/Fantomas.Core.Tests/NewlineBeforeMultilineComputationExpressionTests.fs

@@ -63,9 +63,7 @@ app(meh).[x] <-
     |> should
         equal
         """
-app(
-    meh
-).[x] <- task {
+app(meh).[x] <- task {
     // some computation here
     ()
 }

src/Fantomas.Core.Tests/Stroustrup/DotIndexedSetExpressionTests.fs

@@ -290,9 +290,7 @@ app(meh).[x] <-
     |> should
         equal
         """
-app(
-    meh
-).[x] <- {
+app(meh).[x] <- {
     A = longTypeName
     B = someOtherVariable
     C = ziggyBarX
@@ -311,9 +309,7 @@ app(meh).[x] <-
     |> should
         equal
         """
-app(
-    meh
-).[x] <- {
+app(meh).[x] <- {
     astContext with
         IsInsideMatchClausePattern = true
 }
@@ -333,9 +329,7 @@ app(meh).[x] <-
     |> should
         equal
         """
-app(
-    meh
-).[x] <- {|
+app(meh).[x] <- {|
     A = longTypeName
     B = someOtherVariable
     C = ziggyBarX
@@ -357,9 +351,7 @@ app(meh).[x] <-
     |> should
         equal
         """
-app(
-    meh
-).[x] <- struct {|
+app(meh).[x] <- struct {|
     A = longTypeName
     B = someOtherVariable
     C = ziggyBarX
@@ -382,9 +374,7 @@ app(meh).[x] <-
     |> should
         equal
         """
-app(
-    meh
-).[x] <- [
+app(meh).[x] <- [
     itemOne
     itemTwo
     itemThree
@@ -409,9 +399,7 @@ app(meh).[x] <-
     |> should
         equal
         """
-app(
-    meh
-).[x] <- [|
+app(meh).[x] <- [|
     itemOne
     itemTwo
     itemThree

src/Fantomas.Core/CodePrinter.fs

@@ -1448,12 +1448,18 @@ let genExpr (e: Expr) =
         let genDotIndexedSetWithApp funcExpr argExpr (appNode: Node) =
             let short = funcExpr +> genExpr argExpr |> genNode appNode
 
-            let long =
-                funcExpr +> genMultilineFunctionApplicationArguments argExpr |> genNode appNode
-
             let idx =
                 !-"." +> sepOpenLFixed +> genExpr node.Index +> sepCloseLFixed +> sepArrowRev
 
+            let long ctx =
+                let multiline =
+                    funcExpr +> genMultilineFunctionApplicationArguments argExpr |> genNode appNode
+
+                if futureNlnCheck (short +> idx) ctx then
+                    multiline ctx
+                else
+                    short ctx
+
             expressionFitsOnRestOfLine
                 (short +> idx +> genExpr node.Value)
                 (long