Always add a space for multiple curried args invocation (fsprojects#2088

) Fixes fsprojects#2087 Cherry-picked from upstream's fsprojects@fd46ab0 Co-authored-by: ijanus <[email protected]>
nblockchain · Feb 16, 2022 · 4537585 · 4537585
1 parent b632d0d
commit 4537585
Show file tree

Hide file tree

Showing 3 changed files with 22 additions and 3 deletions.
diff --git a/src/Fantomas.Tests/AppTests.fs b/src/Fantomas.Tests/AppTests.fs
@@ -763,3 +763,22 @@ x |> f<y> // some comment
         """
 x |> f<y> // some comment
 """
+
+[<Test>]
+let ``function invocation with multiple curried parameters, 2087`` () =
+    formatSourceString
+        false
+        """
+module Foo =
+    let Bar (baz1: int) (baz2: string) (baz3: string) (baz4: string) (baz5: string) =
+        FooBarBaz(someFunc x) (someOtherFunc y)
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+module Foo =
+    let Bar (baz1: int) (baz2: string) (baz3: string) (baz4: string) (baz5: string) =
+        FooBarBaz (someFunc x) (someOtherFunc y)
+"""
diff --git a/src/Fantomas.Tests/PatternMatchingTests.fs b/src/Fantomas.Tests/PatternMatchingTests.fs
@@ -1130,7 +1130,7 @@ match foo with
         getRangeBetween "keyword" headToken headToken
 
     let info =
-        Trivia.Create(Keyword(headToken)) range
+        Trivia.Create (Keyword(headToken)) range
         |> List.prependItem foundTrivia
 
     getTriviaFromTokensThemSelves allTokens rest info

diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -3136,8 +3136,8 @@ and genApp astContext e es ctx =
                 (fun ctx ->
                     match es with
                     | [] -> false
-                    | [ h ]
-                    | h :: _ -> addSpaceBeforeParensInFunCall e h ctx)
+                    | [ h ] -> addSpaceBeforeParensInFunCall e h ctx
+                    | _ -> true)
                 sepSpace
                 sepNone