Revisit formatting of SynPat.Record. Fixes #1173. (#1174)

Author: nojaf

src/Fantomas.Tests/MultilineBlockBracketsOnSameColumnRecordTests.fs

@@ -441,7 +441,9 @@ let ``SynPat.Record in pattern match with bracketOnSeparateLine`` () =
     |> prepend newline
     |> should equal """
 match foo with
-| { Bar = bar ; Level = 12 ; Vibes = plenty ;
+| { Bar = bar
+    Level = 12
+    Vibes = plenty
     Lorem = "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. " } ->
     "7"
 | _ -> "8"

src/Fantomas.Tests/NumberOfItemsRecordTests.fs

@@ -382,7 +382,6 @@ type MyRecord =
     interface IMyInterface
 """
 
-[<Ignore("Issue #1173")>]
 [<Test>]
 let ``SynPat.Record in pattern match, 1173`` () =
     formatSourceString false """match foo with

src/Fantomas.Tests/RecordTests.fs

@@ -1048,3 +1048,53 @@ module Test =
         { long_enough: string
           also_long_enough: string } // Hi I am a comment
 """
+
+[<Test>]
+let ``multiline SynPat.Record in match clause, 1173`` () =
+    formatSourceString false """
+match foo with
+| { Bar = bar
+    Level = 12
+    Vibes = plenty
+    Lorem = "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. " } ->
+    "7"
+| _ -> "8"
+"""  config
+    |> prepend newline
+    |> should equal """
+match foo with
+| { Bar = bar
+    Level = 12
+    Vibes = plenty
+    Lorem = "Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut labore et dolore magna aliqua. " } ->
+    "7"
+| _ -> "8"
+"""
+
+[<Test>]
+let ``multiline SynPat.Record in let binding destructuring`` () =
+    formatSourceString false """
+let internal sepSemi (ctx: Context) =
+    let { Config = { SpaceBeforeSemicolon = before; SpaceAfterSemicolon = after } } = ctx
+
+    match before, after with
+    | false, false -> str ";"
+    | true, false -> str " ;"
+    | false, true -> str "; "
+    | true, true -> str " ; "
+    <| ctx
+"""  config
+    |> prepend newline
+    |> should equal """
+let internal sepSemi (ctx: Context) =
+    let { Config = { SpaceBeforeSemicolon = before
+                     SpaceAfterSemicolon = after } } =
+        ctx
+
+    match before, after with
+    | false, false -> str ";"
+    | true, false -> str " ;"
+    | false, true -> str "; "
+    | true, true -> str " ; "
+    <| ctx
+"""

src/Fantomas/CodePrinter.fs

@@ -4298,9 +4298,20 @@ and genPat astContext pat =
              +> sepCloseA)
 
     | PatRecord (xs) ->
-        sepOpenS
-        +> atCurrentColumn (colAutoNlnSkip0 sepSemi xs (genPatRecordFieldName astContext))
-        +> sepCloseS
+        let smallRecordExpr =
+            sepOpenS
+            +> col sepSemi xs (genPatRecordFieldName astContext)
+            +> sepCloseS
+
+        // Note that MultilineBlockBracketsOnSameColumn is not taken into account here.
+        let multilineRecordExpr =
+            sepOpenS
+            +> atCurrentColumn (col sepSemiNln xs (genPatRecordFieldName astContext))
+            +> sepCloseS
+
+        fun ctx ->
+            let size = getRecordSize ctx xs
+            isSmallExpression size smallRecordExpr multilineRecordExpr ctx
     | PatConst (c, r) -> genConst c r
     | PatIsInst (TApp (_, [ _ ], _) as t)
     | PatIsInst (TArray _ as t) ->