diff --git a/compiler/lib/js_output.ml b/compiler/lib/js_output.ml
index b0eb604860..f2cf8c79ed 100644
--- a/compiler/lib/js_output.ml
+++ b/compiler/lib/js_output.ml
@@ -2101,7 +2101,7 @@ let program ?(accept_unnamed_var = false) ?(source_map = false) f p =
   PP.set_needed_space_function f need_space;
   (match Config.effects () with
   | `Cps | `Double_translation -> PP.set_adjust_indentation_function f (fun n -> n mod 40)
-  | `Disabled | `Jspi | exception Failure _ -> ());
+  | `Disabled | `Jspi | (exception Failure _) -> ());
   PP.start_group f 0;
   O.program f p;
   PP.end_group f;
diff --git a/compiler/tests-compiler/lambda_lifting.ml b/compiler/tests-compiler/lambda_lifting.ml
index 25755fe92e..11cc1467b0 100644
--- a/compiler/tests-compiler/lambda_lifting.ml
+++ b/compiler/tests-compiler/lambda_lifting.ml
@@ -16,9 +16,7 @@ Printf.printf "%d\n" (f 3)
   in
   Util.compile_and_run ~effects:`Cps ~flags prog;
   [%expect {|15 |}];
-  let program =
-    Util.compile_and_parse ~effects:`Cps ~flags prog
-  in
+  let program = Util.compile_and_parse ~effects:`Cps ~flags prog in
   Util.print_program program;
   [%expect
     {|
diff --git a/compiler/tests-compiler/util/util.ml b/compiler/tests-compiler/util/util.ml
index 66a10b3fd1..74cf3cec92 100644
--- a/compiler/tests-compiler/util/util.ml
+++ b/compiler/tests-compiler/util/util.ml
@@ -300,8 +300,7 @@ let compile_to_javascript
       [ (if pretty then [ "--pretty" ] else [])
       ; (if sourcemap then [ "--sourcemap" ] else [])
       ; (match effects with
-        | `Double_translation ->
-            [ "--effects=double-translation" ]
+        | `Double_translation -> [ "--effects=double-translation" ]
         | `Cps -> [ "--effects=cps" ]
         | `Disabled -> [])
       ; (if use_js_string