Always add a space for multiple curried args invocation

Addresses dotnet/docs#28141
knocte · Feb 12, 2022 · 5a393d1 · 5a393d1
1 parent 2f05dae
commit 5a393d1
Show file tree

Hide file tree

Showing 2 changed files with 23 additions and 0 deletions.
diff --git a/src/Fantomas.Tests/SingleExprTests.fs b/src/Fantomas.Tests/SingleExprTests.fs
@@ -213,3 +213,22 @@ let ``comment after address of tokens`` () =
 && // comment
     foobar
 """
+
+[<Test>]
+let ``function invocation with multiple curried parameters`` () =
+    formatSourceString
+        false
+        """
+module Foo =
+    let Bar (baz1: int) (baz2: string) (baz3: string) (baz4: string) =
+        FooBarBaz(someFunc x) (someOtherFunc y)
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+module Foo =
+    let Bar (baz1: int) (baz2: string) (baz3: string) (baz4: string) =
+        FooBarBaz (someFunc x) (someOtherFunc y)
+"""
diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -3215,6 +3215,10 @@ and genApp astContext e es ctx =
                 (fun ctx ->
                     match es with
                     | [] -> false
+                    | Paren _ :: rest when es.Length > 1 ->
+                        match rest with
+                        | Paren _ :: _ -> true
+                        | _ -> addSpaceBeforeParensInFunCall e es.Head ctx
                     | [ h ]
                     | h :: _ -> addSpaceBeforeParensInFunCall e h ctx)
                 sepSpace