Concatenation of lines can break operator precedence

[Smaug123]

Issue created from fantomas-online

Code

let r (f : 'a -> 'b) (a : 'a) : 'b =
    fun () ->
        f a
    |> fun f -> f ()

Result

let r (f : 'a -> 'b) (a : 'a) : 'b = fun () -> f a |> fun f -> f ()

Problem description

The concatenation of lines has caused the pipe operator to bind to a different expression.

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 06/30/2020 07:24:01 - dcc70c3

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