KeepIndentInBranch not respected inside a let and match

[Smaug123]

Issue created from fantomas-online

Code

module Foo =

    let blah =
        
        let a =
            match true with
            | false ->
                match result with
                | Error _ -> failwith ""
                | Ok _ ->
                printfn "hi"
                failwith "blah blah blah blah"
            | true -> failwith ""

        failwith ""

Result

module Foo =

    let blah =

        let a =
            match true with
            | false ->
                match result with
                | Error _ -> failwith ""
                | Ok _ ->
                    printfn "hi"
                    failwith "blah blah blah blah"
            | true -> failwith ""

        failwith ""

Problem description

I've seen an analogue of this case appear or disappear depending on whether let a = is let a, b = or just let a =. However, for this particular reproduction, it turns out not to matter. I expected the printfn to be unindented one scope from where Fantomas put it.

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 07/07/2021 07:46:28 - 6f0df78

    { config with
                MultilineBlockBracketsOnSameColumn = true
                KeepIndentInBranch = true }

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

[nojaf]

It does work if you flip the | true -> failwith "" on top, see example.
As I understood it so far, only the last branch or clause will do keep indent stuff.
Any reason the short clause is not the last one here?

[Smaug123]

Ah, I see. I've forgotten the context I actually had in mind when I raised this, but it is very possible you're right and I was just being over-eager. I'll see if I can find why I raised this.