Extra spaces inserted in record definition

[Smaug123]

Issue created from fantomas-online

Code

[<Foo>]
type Args =
    {
        [<Foo "">]
        [<Bar>]
        [<Baz 1>]
        Hi : int list
    }
    
module Foo =

  let r = 3

Result

[<Foo>]
type Args =
    {
        [<Foo "">]
        [<Bar>]
        [<Baz 1>]


        Hi : int list
    }

module Foo =
    let r = 3

Problem description

Fantomas inserted additional newlines before the record member. It only did this when there was a module following it, in my very limited testing.

Extra information

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

Options

Fantomas Master at 06/30/2020 07:24:01 - dcc70c3

Name	Value
IndentSpaceNum	4
PageWidth	120
SemicolonAtEndOfLine	false
SpaceBeforeParameter	true
SpaceBeforeLowercaseInvocation	true
SpaceBeforeUppercaseInvocation	true
SpaceBeforeClassConstructor	true
SpaceBeforeMember	true
SpaceBeforeColon	true
SpaceAfterComma	true
SpaceBeforeSemicolon	true
SpaceAfterSemicolon	true
IndentOnTryWith	false
SpaceAroundDelimiter	true
MaxIfThenElseShortWidth	40
MaxInfixOperatorExpression	50
MaxRecordWidth	40
MaxArrayOrListWidth	40
MaxValueBindingWidth	40
MaxFunctionBindingWidth	40
MultilineBlockBracketsOnSameColumn	true
NewlineBetweenTypeDefinitionAndMembers	true
KeepIfThenInSameLine	true
MaxElmishWidth	40
SingleArgumentWebMode	false
StrictMode	false