Weird indentation/breaks with lambda in pipeline

[cmeeren]

This code seems weirdly formatted (online):

let a =
  b
  |> List.exists
       (fun p ->
       p.a && p.b |> List.exists (fun o -> o.a = "lorem ipsum dolor sit amet"))

I am thinking of (fun p being indented the same as the function body on the next line. I would expect (fun p to be on the same line as List.exists.