Unnecessary breaks and name-sensitive alignment when using Stroustrup

[cmeeren]

Issue created from fantomas-online

Code and expected output

This is the output when using default settings (not Stroustrup).

let getUpdateBklrEmailEvent user =
    match user with
    | { PrimaryEmail = Some { Value = newEmail }
        PersistedState = Some { PrimaryEmail = Some { Value = oldEmail } } } when newEmail <> oldEmail ->
        Some(UpdateBklrEmail { Old = oldEmail; New = newEmail })
    | _ -> None

Result when using Stroustrup

let getUpdateBklrEmailEvent user =
    match user with
    | {
          PrimaryEmail = Some { Value = newEmail }
          PersistedState = Some {
                                    PrimaryEmail = Some { Value = oldEmail }
                                }
      } when newEmail <> oldEmail -> Some(UpdateBklrEmail { Old = oldEmail; New = newEmail })
    | _ -> None

Problem description

1. The line break after PersistedState = Some { is unnecessary; it fits on a single line.
2. The sub-record inside PersistedState is formatted with name-sensitive alignment. If it has to be broken into multiple lines, it should be something like:

let getUpdateBklrEmailEvent user =
    match user with
    | {
          PrimaryEmail = Some { Value = newEmail }
          PersistedState = 
              Some {
                  PrimaryEmail = Some { Value = oldEmail }
              }
      } when newEmail <> oldEmail -> Some(UpdateBklrEmail { Old = oldEmail; New = newEmail })
    | _ -> None

Or alternatively:

let getUpdateBklrEmailEvent user =
    match user with
    | {
          PrimaryEmail = Some { Value = newEmail }
          PersistedState = Some {
              PrimaryEmail = Some { Value = oldEmail }
          }
      } when newEmail <> oldEmail -> Some(UpdateBklrEmail { Old = oldEmail; New = newEmail })
    | _ -> None

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.
• I would like a release if this problem is solved.

Options

Fantomas main branch at 1/1/1990

    { config with
                MultilineBracketStyle = stroustrup }

_{Did you know that you can ignore files when formatting by using a .fantomasignore file?
PS: It's unlikely that someone else will solve your specific issue, as it's something that you have a personal stake in.}

[cmeeren]

Another and perhaps simpler example: The following fits on one line, and is the expected output (and the actual output with default settings):

type PiLangAttribute(nameGroup: string) =
    inherit ObjectFieldDescriptorAttribute()

    override this.OnConfigure(_context, descriptor, _member) =
        descriptor.Directive({ PiLangDirective.Name = Some nameGroup }) |> ignore

With Stroustrup, however, I get this:

type PiLangAttribute(nameGroup: string) =
    inherit ObjectFieldDescriptorAttribute()

    override this.OnConfigure(_context, descriptor, _member) =
        descriptor.Directive(
            {
                PiLangDirective.Name = Some nameGroup
            }
        )
        |> ignore