Attributes in a recursive type get misplaced

[purkhusid]

Issue created from fantomas-online

Code

type internal WorkingShard =
    | Started of ReactoKinesixShardProcessor
    | Stopped of StoppedReason

and ReactoKinesixApp
    private
    (
        kinesis: IAmazonKinesis,
        dynamoDB: IAmazonDynamoDB,
        appName: string,
        streamName: string,
        workerId: string,
        processorFactory: IRecordProcessorFactory,
        config: ReactoKinesixConfig
    ) as this =

    interface IReactoKinesixApp with
        [<CLIEvent>] member this.OnInitialized = initializedEvent.Publish
        [<CLIEvent>] member this.OnBatchProcessed = batchProcessedEvent.Publish

Result

type internal WorkingShard =
    | Started of ReactoKinesixShardProcessor
    | Stopped of StoppedReason

and ReactoKinesixApp
    private
    (
        kinesis: IAmazonKinesis,
        dynamoDB: IAmazonDynamoDB,
        appName: string,
        streamName: string,
        workerId: string,
        processorFactory: IRecordProcessorFactory,
        config: ReactoKinesixConfig
    ) as this =


    interface IReactoKinesixApp with
        member [<CLIEvent>] this.OnInitialized = initializedEvent.Publish
        member [<CLIEvent>] this.OnBatchProcessed = batchProcessedEvent.Publish

Problem description

The [<CLIEvent>] attributes get misplaced when the formatter is used on the example.

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 04/17/2021 11:23:36 - 26674f9

Default Fantomas configuration

_{Did you know that you can ignore files when formatting from fantomas-tool or the FAKE targets by using a .fantomasignore file?}

[nojaf]

Thank you for reporting this issue.