Attribute on type function incorrectly placed for 'and' types.

[OkkeHendriks]

Issue created from fantomas-online

Code

module test 
open System.Diagnostics 

type Correct = 
    | A of unit

    [<DebuggerStepThrough>]
    override this.ToString () = ""

    [<DebuggerStepThrough>]
    member this.f = ()

    [<DebuggerStepThrough>]
    static member this.f = ()

and Wrong =  
    | B of unit

    [<DebuggerStepThrough>]
    override this.ToString () = ""

    [<DebuggerStepThrough>]
    member this.f = ()

    [<DebuggerStepThrough>]
    static member this.f = ()

Result

module test

open System.Diagnostics

type Correct =
    | A of unit

    [<DebuggerStepThrough>]
    override this.ToString() = ""

    [<DebuggerStepThrough>]
    member this.f = ()

    [<DebuggerStepThrough>]
    static member this.f = ()

and Wrong =
    | B of unit

    override [<DebuggerStepThrough>] this.ToString() = ""

    member [<DebuggerStepThrough>] this.f = ()

    static member [<DebuggerStepThrough>] this.f = ()

Problem description

Attribute on type function incorrectly placed after formatting for 'and' types only.

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 08/19/2021 16:27:53 - a80f888

Default Fantomas configuration

[nojaf]

Hey there, thanks for the report.
I would guess that this is an ASTContext bug.
Are you interested in submitting a PR?

[OkkeHendriks]

I would be interested but I am very busy with work at the moment so not sure at all when I would have the time to look into this. Also because I have zero experience with the Fantomas code base. I worked around it by not using and for the moment.

If/when I can have a look i'll let you know, but I wouldn't hold my breath😒, sorry!

[nojaf]

No worries, I totally understand. If you ever find the time and courage, some good starting points are the YouTube videos and our contribution guidelines.
Or feel free to poke me here if you have additional questions.