Fix record definition using Stroustrup style

CHANGELOG.md

@@ -1,5 +1,10 @@
 # Changelog
 
+## [Unreleased]
+
+### Fixed
+* Record definition with accessibility modifier error using stroustrup style [#2481](https://github.com/fsprojects/fantomas/issues/2481)
+
 ## [5.0.0-beta-009] - 2022-09-02
 
 ### Fixed

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

@@ -82,3 +82,67 @@ type V =
     }
     member this.Coordinate = (this.X, this.Y, this.Z)
 """
+
+[<Test>]
+let ``record definition with private accessibility modifier, 2481`` () =
+    formatSourceString
+        false
+        """
+type Person = private {
+    FirstName: string
+    LastName: string
+}
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+type Person = private {
+    FirstName: string
+    LastName: string
+}
+"""
+
+[<Test>]
+let ``record definition with internal accessibility modifier, 2481`` () =
+    formatSourceString
+        false
+        """
+type Person = internal {
+    FirstName: string
+    LastName: string
+}
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+type Person = internal {
+    FirstName: string
+    LastName: string
+}
+"""
+
+[<Test>]
+let ``record definition with accessibility modifier with incorrect format, 2481`` () =
+    formatSourceString
+        false
+        """
+type Person = 
+    private {
+        FirstName: string
+        LastName: string
+    }
+"""
+        config
+    |> prepend newline
+    |> should
+        equal
+        """
+type Person = private {
+    FirstName: string
+    LastName: string
+}
+"""

src/Fantomas.Core/CodePrinter.fs

@@ -3412,7 +3412,7 @@ and genMultilineSimpleRecordTypeDefn astContext openingBrace withKeyword ms ao'
 
 and genMultilineSimpleRecordTypeDefnAlignBrackets astContext openingBrace withKeyword ms ao' fs closingBrace =
     // the typeName is already printed
-    opt (indent +> sepNln) ao' genAccess
+    ifStroustrupElse (opt (sepSpace) ao' genAccess) (opt (indent +> sepNln) ao' genAccess)
     +> enterNodeFor SynTypeDefnSimpleRepr_Record_OpeningBrace openingBrace
     +> sepOpenSFixed
     +> indentSepNlnUnindent (