Breaks line of for statement at wrong offset

[knocte]

Issue created from fantomas-online

Code

module Foo =

    let CreateReadOnlyAccounts (watchWalletInfo: WatchWalletInfo): Async<unit> =
        async {
            for etherCurrency in Currency.GetAll().Where(fun currency -> currency.IsEtherBased ()) do
                do! ValidateAddress etherCurrency watchWalletInfo.EtherPublicAddress
        }

Result

module Foo =

    let CreateReadOnlyAccounts (watchWalletInfo: WatchWalletInfo): Async<unit> =
        async {
            for etherCurrency in Currency
                .GetAll()
                .Where(fun currency -> currency.IsEtherBased()) do
                do! ValidateAddress etherCurrency watchWalletInfo.EtherPublicAddress
        }

Expected result

module Foo =

    let CreateReadOnlyAccounts (watchWalletInfo: WatchWalletInfo): Async<unit> =
        async {
            for etherCurrency in Currency
                                     .GetAll()
                                     .Where(fun currency -> currency.IsEtherBased()) do
                do! ValidateAddress etherCurrency watchWalletInfo.EtherPublicAddress
        }

Extra information

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

Options

Fantomas Master at 11/02/2020 11:33:23 - f7b8f3a

Default Fantomas configuration

[knocte]

@nojaf I see you marked this as bug (stylisitc) so I guess it means you agree/ack with this, however, I just realised that the expected result I posted suffers from vanity alignment. Any suggestion for a better expected result before we start working on this?

[nojaf]

What about

module Foo =

    let CreateReadOnlyAccounts (watchWalletInfo: WatchWalletInfo) : Async<unit> =
        async {
            for etherCurrency in
                Currency
                    .GetAll()
                    .Where(fun currency -> currency.IsEtherBased())
                do
                do! ValidateAddress etherCurrency watchWalletInfo.EtherPublicAddress
        }