>> causes next thing to always go to next line, even if it's small

[ovatsus]

This:

            x
            |> List.map (partition "{" >> snd >> Option.get)
            |> List.map (fun str -> if str.StartsWith "{""
                                    then HttpUtility.HtmlDecode str
                                    else str)
            |> List.map JsonValue.Parse

is turned into this:

            x
            |> List.map (partition "{"
                         >> snd
                         >> Option.get)
            |> List.map (fun str -> 
                   if str.StartsWith "{"" then HttpUtility.HtmlDecode str
                   else str)
            |> List.map JsonValue.Parse

partition "{" >> snd >> Option.get) is smaller than if str.StartsWith "{"" then HttpUtility.HtmlDecode str, so it shouldn't wrap

[dungpa]

I think it's getting harder and harder to add good heuristics. Could you help implement a few heuristics when you have time?

I start thinking about an on-the-fly code formatter. Perhaps it can provide an alternative when parser-based formatting doesn't work well.

[nojaf]

This does seem fixed with 2.8 release.
@ovatsus could you give it a try with the --preserveEOL option.