Fix Stroustrup record member declaration indent issue

src/Fantomas.Core.Tests/Stroustrup/SynTypeDefnSimpleReprRecordTests.fs

@@ -294,3 +294,63 @@ type MangaDexAtHomeResponse = {
     |}
 }
 """
+
+[<Test>]
+let ``record interface declarations can break with Stroustrup enabled, 2787 `` () =
+    formatSourceString
+        false
+        """
+type IEvent = interface end
+
+type SomeEvent =
+    { Id: string
+      Name: string }
+    interface IEvent
+
+type UpdatedName = { PreviousName: string }
+"""
+        { config with
+            NewlineBetweenTypeDefinitionAndMembers = false }
+    |> prepend newline
+    |> should
+        equal
+        """
+type IEvent =
+    interface
+    end
+
+type SomeEvent = {
+    Id: string
+    Name: string
+} with
+    interface IEvent
+
+type UpdatedName = { PreviousName: string }
+"""
+
+[<Test>]
+let ``record member declarations can break with Stroustrup enabled, 2787 `` () =
+    formatSourceString
+        false
+        """
+type SomeEvent =
+    { Id: string
+      Name: string }
+    member x.BreakWithOtherStuffAs well = ()
+
+type UpdatedName = { PreviousName: string }
+"""
+        { config with
+            NewlineBetweenTypeDefinitionAndMembers = false }
+    |> prepend newline
+    |> should
+        equal
+        """
+type SomeEvent = {
+    Id: string
+    Name: string
+} with
+    member x.BreakWithOtherStuffAs well = ()
+
+type UpdatedName = { PreviousName: string }
+"""

src/Fantomas.Core/CodePrinter.fs

@@ -3234,9 +3234,7 @@ let genTypeDefn (td: TypeDefn) =
                 +> genSingleTextNode node.ClosingBrace
 
             let genMembers =
-                onlyIf hasMembers sepNln
-                +> sepNlnBetweenTypeAndMembers typeDefnNode
-                +> genMemberDefnList members
+                onlyIf hasMembers (sepNln +> sepNlnBetweenTypeAndMembers typeDefnNode +> genMemberDefnList members)
 
             let anyFieldHasXmlDoc =
                 List.exists (fun (fieldNode: FieldNode) -> fieldNode.XmlDoc.IsSome) node.Fields
@@ -3255,8 +3253,7 @@ let genTypeDefn (td: TypeDefn) =
 
                 genAccessOpt node.Accessibility
                 +> genRecordFields
-                +> onlyIf hasMembers (sepSpace +> withKw +> indent)
-                +> genMembers
+                +> onlyIf hasMembers (sepSpace +> withKw +> indent +> genMembers +> unindent)
 
             let cramped =
                 sepNlnUnlessLastEventIsNewline