Squash stupid formatter

MLanguage · Jun 18, 2024 · f85da8f · f85da8f
1 parent 8c70026
commit f85da8f
Showing 1 changed file with 6 additions and 5 deletions.
diff --git a/src/irj_checker/backend_irj/pas_calc.ml b/src/irj_checker/backend_irj/pas_calc.ml
@@ -47,10 +47,11 @@ let gen_pas_calc_json_correctif fmt (test_data : irj_file) =
   let rappels : rappel list option =
     match test_data.rapp with
     | None -> None
-    | Some rappels -> Some rappels.entrees_rappels in
+    | Some rappels -> Some rappels.entrees_rappels
+  in
   Format.fprintf fmt
-  {|@[<h 2>{@,"formatAvis": "texte",@,"codesRevenu": [%a@,],@,"lignesRappel": [%a@,]@]|}
-  format_code_list test_data.prim.entrees
-  (Format.pp_print_option format_rappel_list) rappels;
+    {|@[<h 2>{@,"formatAvis": "texte",@,"codesRevenu": [%a@,],@,"lignesRappel": [%a@,]@]|}
+    format_code_list test_data.prim.entrees
+    (Format.pp_print_option format_rappel_list)
+    rappels;
   Format.fprintf fmt "}"
-