Outdenting problem when specifying record with accessibility modifier

[yreynhout]

Issue created from fantomas-online

Code

module OutdentingProblem =
    type Configuration = private { Setting1: int; Setting2: bool }

    let withSetting1 value configuration =
        { configuration with Setting1 = value }

    let withSetting2 value configuration =
        { configuration with Setting2 = value }

Result

module OutdentingProblem =
    type Configuration = private {
        Setting1: int
        Setting2: bool
    }

let withSetting1 value configuration = { configuration with Setting1 = value }

let withSetting2 value configuration = { configuration with Setting2 = value }

Problem description

If one uses an accessibility modifier in front of a record (I tried private, public, internal) the functions below it seem to get outdented.

Extra information

• The formatted result breaks my code.
• The formatted result gives compiler warnings.
• I or my company would be willing to help fix this.

Options

Fantomas main branch at 2022-10-24T07:25:37Z - 529aa7d

    { config with
                MultilineBlockBracketsOnSameColumn = true
                ExperimentalStroustrupStyle = true }

_{Did you know that you can ignore files when formatting from fantomas-tool or the FAKE targets by using a .fantomasignore file?}

[nojaf]

Hello, thank you for reporting this problem.

It appears we should not unindent in:

fantomas/src/Fantomas.Core/CodePrinter.fs

Line 3154 in 529aa7d

+> optSingle (fun _ -> unindent) ao'

That should be something along the lines of:

onlyIfCtx
  (fun ctx -> not (ctx.Config.ExperimentalStroustrupStyle && List.isEmpty ms))
  (optSingle (fun _ -> unindent) ao')

Are you interested in submitting a PR for this?