Move IndexWithoutDotExpr higher in the genExpr pattern match. (#1995)

fsprojects · Dec 29, 2021 · 836314a · 836314a
1 parent 4655d77
commit 836314a
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 6 deletions.
diff --git a/src/Fantomas.Tests/IndexSyntaxTests.fs b/src/Fantomas.Tests/IndexSyntaxTests.fs
@@ -114,3 +114,18 @@ let y = [ 0; 2; 4 ][ 1 ]
         """
 let y = [ 0; 2; 4 ][1]
 """
+
+[<Test>]
+let ``index syntax on dotget, 1985`` () =
+    formatSourceString
+        false
+        """
+let segment = System.Uri(ctx.Request.Path.Value).Segments[1]
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+let segment = System.Uri(ctx.Request.Path.Value).Segments[1]
+"""
diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -1789,6 +1789,12 @@ and genExpr astContext synExpr ctx =
                 +> genExpr astContext e3
             )
 
+        | IndexWithoutDotExpr (identifierExpr, indexExpr) ->
+            genExpr astContext identifierExpr
+            +> sepOpenLFixed
+            +> genExpr astContext indexExpr
+            +> sepCloseLFixed
+
         // Result<int, string>.Ok 42
         | App (DotGet (TypeApp (e, lt, ts, gt), lids), es) ->
             let s = List.map fst lids |> String.concat "."
@@ -2229,12 +2235,6 @@ and genExpr astContext synExpr ctx =
 
             expressionFitsOnRestOfLine short long
 
-        | IndexWithoutDotExpr (identifierExpr, indexExpr) ->
-            genExpr astContext identifierExpr
-            +> sepOpenLFixed
-            +> genExpr astContext indexExpr
-            +> sepCloseLFixed
-
         // Always spacing in multiple arguments
         | App (e, es) -> genApp astContext e es
         | TypeApp (e, lt, ts, gt) ->