Newline not preserved between let and let bang

[nojaf]

Issue created from fantomas-online

There should be a new line before let! result =

Code

      let rec loop () =
        async {
          let! msg = inbox.Receive()

          match msg with
          | Handle (eventSource,command,reply) ->
              let! stream = eventSource |> eventStore.GetStream

              let newEvents =
                stream |> Result.map (asEvents >> behaviour command >> enveloped eventSource)

              let! result =
                newEvents
                |> function
                    | Ok events -> eventStore.Append events
                    | Error err -> async { return Error err }

              do reply.Reply result

              return! loop ()
        }

Result

let rec loop () =
  async {
    let! msg = inbox.Receive ()

    match msg with
    | Handle (eventSource, command, reply) ->
        let! stream = eventSource |> eventStore.GetStream

        let newEvents =
          stream
          |> Result.map
               (asEvents
                >> behaviour command
                >> enveloped eventSource)
        let! result =
          newEvents
          |> function
          | Ok events -> eventStore.Append events
          | Error err -> async { return Error err}

        do reply.Reply result

        return! loop ()
  }

Options

Fantomas Master at 06/01/2020 08:20:42 - 8824f4a

Name	Value
IndentSpaceNum	2
PageWidth	120
SemicolonAtEndOfLine	false
SpaceBeforeParameter	true
SpaceBeforeLowercaseInvocation	true
SpaceBeforeUppercaseInvocation	true
SpaceBeforeClassConstructor	false
SpaceBeforeMember	false
SpaceBeforeColon	false
SpaceAfterComma	true
SpaceBeforeSemicolon	false
SpaceAfterSemicolon	true
IndentOnTryWith	false
SpaceAroundDelimiter	false
MaxIfThenElseShortWidth	40
MaxInfixOperatorExpression	50
MaxRecordWidth	40
MaxArrayOrListWidth	40
MaxLetBindingWidth	40
MultilineBlockBracketsOnSameColumn	true
NewlineBetweenTypeDefinitionAndMembers	false
KeepIfThenInSameLine	false
StrictMode	false