Janestreet profile: do not break fun _ -> function (#2460)

Author: tdelvecchio-jsc

CHANGES.md

@@ -10,6 +10,7 @@ profile. This started with version 0.26.0.
 
 - Documentation comments are now formatted by default (#2390, @Julow)
   Use the option `parse-docstrings = false` to disable.
+- \* Janestreet profile: do not break `fun _ -> function` (#2460, @tdelvecchio-jsc)
 
 ### Fixed
 

lib/Fmt_ast.ml

@@ -1386,9 +1386,7 @@ and fmt_fun ?force_closing_paren
   let body =
     let box =
       match xbody.ast.pexp_desc with
-      | Pexp_fun _ | Pexp_newtype _ -> Some false
-      | Pexp_function _ when not c.conf.fmt_opts.ocp_indent_compat.v ->
-          Some false
+      | Pexp_fun _ | Pexp_newtype _ | Pexp_function _ -> Some false
       | _ -> None
     in
     fmt_expression c ?box xbody

test/passing/tests/js_source.ml.ocp

@@ -10168,8 +10168,7 @@ let _ =
   Foooooooooooooooooooo.foooooooooooooooooooo
     foooooooooooooooooooo
     foooooooooooooooooooo
-    (fun x ->
-       function
+    (fun x -> function
        | Foooooooooooooooooooo -> foooooooooooooooooooo
        | Foooooooooooooooooooo -> foooooooooooooooooooo)
 ;;
@@ -10178,8 +10177,7 @@ let _ =
   Foooooooooooooooooooo.foooooooooooooooooooo
     foooooooooooooooooooo
     foooooooooooooooooooo
-    ~x:(fun x ->
-      function
+    ~x:(fun x -> function
       | Foooooooooooooooooooo -> foooooooooooooooooooo
       | Foooooooooooooooooooo -> foooooooooooooooooooo)
 ;;

test/passing/tests/js_source.ml.ref

@@ -10168,20 +10168,18 @@ let _ =
   Foooooooooooooooooooo.foooooooooooooooooooo
     foooooooooooooooooooo
     foooooooooooooooooooo
-    (fun x ->
-       function
-       | Foooooooooooooooooooo -> foooooooooooooooooooo
-       | Foooooooooooooooooooo -> foooooooooooooooooooo)
+    (fun x -> function
+    | Foooooooooooooooooooo -> foooooooooooooooooooo
+    | Foooooooooooooooooooo -> foooooooooooooooooooo)
 ;;
 
 let _ =
   Foooooooooooooooooooo.foooooooooooooooooooo
     foooooooooooooooooooo
     foooooooooooooooooooo
-    ~x:(fun x ->
-      function
-      | Foooooooooooooooooooo -> foooooooooooooooooooo
-      | Foooooooooooooooooooo -> foooooooooooooooooooo)
+    ~x:(fun x -> function
+    | Foooooooooooooooooooo -> foooooooooooooooooooo
+    | Foooooooooooooooooooo -> foooooooooooooooooooo)
 ;;
 
 let _ =