Mutually recursive functions break with function invocation above definition

[arnarthor]

Issue created from fantomas-online

Code

let foobar () =
    Console.WriteLine("Hello")

    let rec foo () = bar "Hello"
    and bar str = printf "%s" str |> ignore

    foo ()

let foobar () =
    let rec foo () = bar "Hello"
    and bar str = printf "%s" str |> ignore

    foo ()

Result

let foobar () =
    Console.WriteLine("Hello")

    let rec foo () = bar "Hello"
    let rec bar str = printf "%s" str |> ignore

    foo ()

let foobar () =
    let rec foo () = bar "Hello"
    and bar str = printf "%s" str |> ignore

    foo ()

Problem description

Creating mutually recursive functions within another function that has Console.WriteLine above the recursion breaks the let ... and ... syntax. Some goes for other functions, ex.

Code

let foobar () =
    SomeModule.SomeFunction("Hello")

    let rec foo () = bar "Hello"
    and bar str = printf "%s" str |> ignore

    foo ()

Result

let foobar () =
    SomeModule.SomeFunction("Hello")

    let rec foo () = bar "Hello"
    let rec bar str = printf "%s" str |> ignore

    foo ()

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/09/2021 08:14:41 - 8b0920d

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]

Hello Arnar, thank you for reporting this issue.
This was a regression that slipped in the 4.x release 😅, so I'm glad you brought this up.