Apply same alternative formatting for match expression as in if expre…

…ssions. Fixes fsprojects#1774.

src/Fantomas.Tests/PatternMatchingTests.fs

@@ -701,7 +701,7 @@ let MethInfoIsUnseen g m ty minfo =
 #else
                   (fun _provAttribs -> None)
 #endif
-               with
+            with
         | Some res -> res
         | None -> false
 
@@ -1888,3 +1888,28 @@ let select p =
   |> List.singleton
   |> instruction "s"
 """
+
+[<Test>]
+let ``multiline infix expression in match, 1774`` () =
+    formatSourceString
+        false
+        """
+match structuralTypes |> List.tryFind (fst >> checkIfFieldTypeSupportsComparison tycon >> not) with
+| _ -> ()
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+match
+    structuralTypes
+    |> List.tryFind
+        (
+            fst
+            >> checkIfFieldTypeSupportsComparison tycon
+            >> not
+        )
+    with
+| _ -> ()
+"""