Keep parenthesis on the same for App inside multiline DotGet thing (#…

…1015) * Keep parenthesis on the same for App inside multiline DotGet thing. Fixes #862. * Same fix but for tuples. Fixes #842.
fsprojects · Aug 19, 2020 · 17fa4cb · 17fa4cb
1 parent e652e7b
commit 17fa4cb
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 5 deletions.
diff --git a/src/Fantomas.Tests/LongIdentWithDotsTests.fs b/src/Fantomas.Tests/LongIdentWithDotsTests.fs
@@ -109,8 +109,8 @@ let main _ =
                 ConfigurationBuilder().SetBasePath(Directory.GetCurrentDirectory()).Build()
 
             WebHostBuilder().UseConfiguration(config).UseKestrel().UseSerilog()
-                .ConfigureAppConfiguration
-                    (Action<WebHostBuilderContext, IConfigurationBuilder> configureAppConfiguration)
+                .ConfigureAppConfiguration(Action<WebHostBuilderContext, IConfigurationBuilder>
+                                               configureAppConfiguration)
                 .ConfigureServices(Action<WebHostBuilderContext, IServiceCollection> configureServices)
                 .Configure(Action<IApplicationBuilder> configureApp).Build().Run()
             |> ignore

diff --git a/src/Fantomas.Tests/OperatorTests.fs b/src/Fantomas.Tests/OperatorTests.fs
@@ -109,9 +109,8 @@ let ``should break on . operator and keep indentation``() =
     """ { config with MaxLineLength = 80; MaxInfixOperatorExpression = 60 }
     |> should equal """let pattern =
     (x + y)
-        .Replace
-            (seperator + "**" + seperator,
-             replacementSeparator + "(.|?" + replacementSeparator + ")?")
+        .Replace(seperator + "**" + seperator,
+                 replacementSeparator + "(.|?" + replacementSeparator + ")?")
         .Replace("**" + seperator, ".|(?<=^|" + replacementSeparator + ")")
 """
 

diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -1436,6 +1436,9 @@ and genExpr astContext synExpr =
                     let genMultilineExpr =
                         match e with
                         | Paren(Lambda(_)) -> atCurrentColumnIndent(genExpr astContext e)
+                        | Paren(App(_))
+                        | Paren(Tuple(_)) ->
+                            atCurrentColumn(genExpr astContext e)
                         | _ ->
                             ifElse hasParenthesis
                                     (indent +> sepNln +> genExpr astContext e +> unindent)