Commit 8250f95f authored by Bruno Guillaume's avatar Bruno Guillaume
Browse files

Fix Warning 6 [labels-omitted]

parent 5cc85c2e
......@@ -90,7 +90,7 @@ let transform () =
| (None,_) -> fail "-multi_json implies -o"
| (Some out_file, l) ->
let base =
match Filename.chop_suffix_opt ".json" out_file with
match Filename.chop_suffix_opt ~suffix:".json" out_file with
| Some b -> b
| None -> out_file in
List.iteri
......@@ -410,7 +410,7 @@ let valid () =
(* -------------------------------------------------------------------------------- *)
let _ =
Printexc.record_backtrace true;
Log.set_active_levels [`INFO; `MESSAGE; `WARNING];
Log.set_active_levels ~levels:[`INFO; `MESSAGE; `WARNING];
Log.set_write_to_log_file false;
(* parsing command line args *)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment