add atCurrentColumnIndent for record multiline expression (#1441)

fsprojects · Feb 11, 2021 · 7783b6f · 7783b6f
1 parent bd72240
commit 7783b6f
Show file tree

Hide file tree

Showing 2 changed files with 45 additions and 1 deletion.
diff --git a/src/Fantomas.Tests/MultilineBlockBracketsOnSameColumnRecordTests.fs b/src/Fantomas.Tests/MultilineBlockBracketsOnSameColumnRecordTests.fs
@@ -1094,3 +1094,47 @@ type RequestParser<'ctx, 'a> =
             prohibited = []
         }
 """
+
+[<Test>]
+let ``formatting error with MultilineBlockBracketsOnSameColumn, 1396`` () =
+    formatSourceString
+        false
+        """
+namespace GeeTower.Tests.EndToEnd
+
+module WatcherTests =
+
+    let CanRevokeAnIllegalCommitmentTx () =
+        let lndAddress = obj()
+
+        let config = {
+            GeeTower.Backend.Configuration.GetTestingConfig (lndAddress.ToString())
+            with
+                BitcoinRpcUser = "btc"
+        }
+
+        ()
+"""
+        { config with
+              MaxLineLength = 80
+              MultilineBlockBracketsOnSameColumn = true }
+    |> prepend newline
+    |> should
+        equal
+        """
+namespace GeeTower.Tests.EndToEnd
+
+module WatcherTests =
+
+    let CanRevokeAnIllegalCommitmentTx () =
+        let lndAddress = obj ()
+
+        let config =
+            { GeeTower.Backend.Configuration.GetTestingConfig(
+                  lndAddress.ToString()
+              ) with
+                BitcoinRpcUser = "btc"
+            }
+
+        ()
+"""
diff --git a/src/Fantomas/CodePrinter.fs b/src/Fantomas/CodePrinter.fs
@@ -2757,7 +2757,7 @@ and genMultilineRecordInstanceAlignBrackets
 
     | None, Some e ->
         sepOpenS
-        +> genExpr astContext e
+        +> atCurrentColumnIndent (genExpr astContext e)
         +> (!- " with"
             +> indent
             +> whenShortIndent indent