Let binding in hash directive disappears

[WalternativE]

Issue created from fantomas-online

Code

let loadFile n =
  let file =
    System.IO.Path.Combine(contentDir,
                           (n |> System.IO.Path.GetFileNameWithoutExtension)
                           + ".md").Replace("\\", "/")

  ()

let loader (projectRoot: string) (siteContent: SiteContents) =
#if WATCH
  let disableLiveRefresh = false
#else
  let disableLiveRefresh = true
#endif
  disableLiveRefresh

Result

let loadFile n =
    let file =
        System
            .IO
            .Path
            .Combine(contentDir,
                     (n |> System.IO.Path.GetFileNameWithoutExtension)
                     + ".md")
            .Replace("\\", "/")

    ()

let loader (projectRoot: string) (siteContent: SiteContents) =
    #if WATCH

    #else
    let disableLiveRefresh = true
    #endif
    disableLiveRefresh

Problem description

If I have a hash directive with two execution paths, formatting will throw away the whole content of the first execution path.

Extra information

• The formatted result breaks by code (semantically - the code still compiles)
• The formatted result gives compiler warnings.
• I or my company would be willing to help fix this.

Options

Fantomas Master at 10/26/2020 19:07:04 - be9212d

Default Fantomas configuration