Additional newline for interface in object expression

Code

type Interface1 =
    abstract member Foo1: string -> string

type Interface2 =
    abstract member Foo2: string -> string

let create () =
    { new Object() with
        override _.ToString() = ""
      interface Interface1 with
          member _.Foo1 s = s

      interface Interface2 with
          member _.Foo2 s = s }

Result

type Interface1 =
    abstract member Foo1: string -> string

type Interface2 =
    abstract member Foo2: string -> string

let create () =
    { new Object() with
        override _.ToString() = ""
      interface Interface1 with
          member _.Foo1 s = s

      interface Interface2 with
          member _.Foo2 s = s }

Problem description

Using the object expression syntax with multiple interfaces causes additional lines to be added every time when formatting. This doesn't break the code but it causes the formatting check to fail since it thinks it can add another line.

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

Options

Fantomas v6.1 branch at 1/1/1990

Default Fantomas configuration

_{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.}

fsprojects / fantomas