forked from
jonmsterling.com/ocaml-forester
ocaml
Tweak logging
authored by
Kento Okura
and committed by
Jon Sterling
a9463be7
4b375278
+2
-2
+2
-2
lib/compiler/Phases.ml
+2
-2
lib/compiler/Phases.ml
···
19
19
let init
20
20
: env: Eio_unix.Stdenv.base -> config: Config.t -> dev: bool -> state
21
21
= fun ~env ~config ~dev ->
22
-
Logs.debug (fun m -> m "Initializing with config @.%a" Config.pp config);
22
+
Logs.debug (fun m -> m "Initializing with config %a" Config.pp config);
23
23
let graphs = (module Forest_graphs.Make (): Forest_graphs.S) in
24
24
let parsed = Forest.create 1000 in
25
25
let documents = Hashtbl.create 1000 in
···
393
393
let module EP = Eio.Path in
394
394
let@ path = List.iter @~ foreign_paths in
395
395
let path_str = EP.native_exn path in
396
-
let@ () = Reporter.profile @@ Format.sprintf "Implant foreign forest from `%s'" path_str in
396
+
Reporter.log Format.pp_print_string (Format.sprintf "Implant foreign forest from `%s'" path_str);
397
397
let blob = try EP.load path with _ -> Reporter.fatalf IO_error "Could not read foreign forest blob at `%s`" path_str in
398
398
match Repr.of_json_string (T.forest_t T.content_t) blob with
399
399
| Ok foreign_forest ->