Space between identifier and then is lost

[Smaug123]

Issue created from fantomas-online

Code

module Foo =
    let assertConsistent () : unit =
        if veryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryLong then
            ()
        else
            if foo = bar then
                ()
            else
                let leftSet = HashSet (FooBarBaz.keys leftThings)
                leftSet.SymmetricExceptWith (FooBarBaz.keys rightThings)
                |> ignore

Result

module Foo =
    let assertConsistent () : unit =
        if veryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryVeryLongthen
            ()
        elif foo = bar then
            ()
        else

        let leftSet = HashSet(FooBarBaz.keys leftThings)

        leftSet.SymmetricExceptWith(FooBarBaz.keys rightThings)
        |> ignore

Problem description

I believe this is only caused by the MaxLineLength and KeepIndentInBranch combination. We've lost the space that delimits the word then.

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/05/2021 12:36:44 - 7cde65d

    { config with
                MaxLineLength = 100
                MultilineBlockBracketsOnSameColumn = true
                MultiLineLambdaClosingNewline = 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?}