Describe the bug
The last line of this definition should be wrapped, but isn't:

let _ =
  match () with
  | _ ->
    (match () with
    | _ -> long_function_name long_argument_name__________________________________________)
;;

How to Reproduce
Using ocamlformat built from 99444f3:
ocamlformat --profile=janestreet --inplace --enable-outside-detected-project formatting.ml