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

Fixes #2087 Co-authored-by: ijanus <emekamicro@gmail.com>
fsprojects · Mar 4, 2022 · 6274245 · 6274245
1 parent 31f71b9
commit 6274245
Show file tree

Hide file tree

Showing 3 changed files with 25 additions and 10 deletions.
diff --git a/src/Fantomas.Tests/AppTests.fs b/src/Fantomas.Tests/AppTests.fs
@@ -905,3 +905,21 @@ promise {
 |> Promise.start
 """
 
+[<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
@@ -1123,7 +1123,7 @@ match foo with
     let range = 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
@@ -2002,16 +2002,13 @@ and genExpr astContext synExpr ctx =
             let sepSpaceAfterFunctionName =
                 let sepSpaceBasedOnSetting e =
                     match e with
+                    | Paren _ -> sepSpace
                     | UppercaseSynExpr -> (fun ctx -> onlyIf ctx.Config.SpaceBeforeUppercaseInvocation sepSpace ctx)
                     | LowercaseSynExpr -> (fun ctx -> onlyIf ctx.Config.SpaceBeforeLowercaseInvocation sepSpace ctx)
 
-                match List.tryHead es with
-                | None ->
-                    match e with
-                    | Paren _ -> sepSpace
-                    | _ -> sepSpaceBasedOnSetting e
-                | Some (SimpleExpr _) -> sepSpace
-                | _ -> sepSpaceBasedOnSetting e
+                match es with
+                | [] -> sepSpaceBasedOnSetting e
+                | _ -> sepSpace
 
             let short =
                 genExpr astContext e
@@ -3215,8 +3212,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