Formatter adds superfluous parens in pipe chain

[fhammerschmidt]

Consider this code:

let status =
    json
    ->optional(field("status", string, _), _)
    ->Option.mapOr(Status.Active, Status.fromString)

after formatting some superfluous parens are added:

let status =
  json
  ->(optional(field("status", string, _), _))
  ->Option.mapOr(Status.Active, Status.fromString)

I tried some versions and it seems it was introduced with 11.1.1

Playground link