multiline do bang gives a warning

[nojaf]

Issue created from fantomas-online

Code

type ProjectController(checker: FSharpChecker) =
  member x.LoadWorkspace (files: string list) (tfmForScripts: FSIRefs.TFM) onProjectLoaded (generateBinlog: bool) =
    async {
      match Environment.workspaceLoadDelay () with
      | delay when delay > TimeSpan.Zero ->
          do! Async.Sleep(
            Environment.workspaceLoadDelay().TotalMilliseconds
            |> int
          )
      | _ -> ()

      return true
    }

Result

type ProjectController(checker: FSharpChecker) =
  member x.LoadWorkspace (files: string list) (tfmForScripts: FSIRefs.TFM) onProjectLoaded (generateBinlog: bool) =
    async {
      match Environment.workspaceLoadDelay () with
      | delay when delay > TimeSpan.Zero ->
          do! Async.Sleep(
            Environment.workspaceLoadDelay().TotalMilliseconds
            |> int
          )
      | _ -> ()

      return true
    }

Problem description

error FS0058: Possible incorrect indentation: this token is offside of context started at position (236:15). Try indenting this token further or using standard formatting conventions. 

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 11/21/2020 11:13:26 - f66f4a1

    { config with
                IndentSize = 2 }