Extra newlines repeatedly being added inside an object expression

[aca02djr]

Description

Having an issue where additional newlines are being added on every format in certain circumstances when using object expressions.

Repro code

online fantomas tool link - if you run a format and then paste the output back into the input then you will see additional newlines added repeatedly, e.g.:

Example code:

namespace Blah

open System

module Test =
    type ISomething =
        inherit IDisposable
        abstract DoTheThing: string -> unit

    let test (something: IDisposable) (somethingElse: IDisposable) =
        { new ISomething with
            member __.DoTheThing whatever =
              printfn "%s" whatever
              printfn "%s" whatever
            member __.Dispose() =
                something.Dispose()
                somethingElse.Dispose() }

Seems very similar to #535 which has been closed but doesn't seem to fix the above example.

Thanks!