The (and+) operator seems wrongly indented

[mlasson]

On current master, I have after running:

$ _build/install/default/bin/ocp-indent ~/test.ml

I obtain

let (and+) x y =
           match x,y with
           | Some x, Some y -> Some (x, y)
           | _ -> None

while I expected

let (and+) x y =
  match x,y with
  | Some x, Some y -> Some (x, y)
  | _ -> None

similarly signatures are broken:

module Infix : sig
  val (and+) : ('a, 'error) result -> ('b, 'error) result -> ('a * 'b, 'error) result
val (let+) : ('a, 'error) result -> ('a -> 'b) -> ('b, 'error) result
end

instead of :

module Infix : sig
  val (and+) : ('a, 'error) result -> ('b, 'error) result -> ('a * 'b, 'error) result
  val (let+) : ('a, 'error) result -> ('a -> 'b) -> ('b, 'error) result
end

[mlasson]

Thanks !