rm time logger for real dataset

lib/pipeline.ml

@@ -317,16 +317,13 @@ let derive_profile ~preview ~use_diffsel ~use_c60 ~tree_dir ~profile ~use_concat
     method dataset_results = all_dataset_results
   end
 
-let time_logger = Time_logger.create ()
-
-let loggers = [
-  Console_logger.create () ;
-  (* Dot_output.create "dag.dot" ; (\*dot -Tpdf example/dag.dot -o dag.pdf*\) *)
-  Bistro_utils.Html_logger.create "report.html" ;
-  time_logger#logger ;
-]
-
 let validation_main ~outdir ?(indir = "") ?(ns = 0) ?(np = 2) ?(mem = 2) ~preview ~use_diffsel ~use_c60 ~calc_dnds ~tree_dir ~profile_fn ~use_concat ~add_indels ~only_simu ?(seed = Random.int Int.max_value) () =
+  let time_logger = Time_logger.create () in
+  let loggers = [
+      Console_logger.create () ;
+      Bistro_utils.Html_logger.create "report.html" ;
+      time_logger#logger ;
+  ] in
   printf "Global seed: %i\n" seed;
   Out_channel.write_all "global.seed" ~data:(string_of_int seed);
   (* simulated trees *)
@@ -393,6 +390,11 @@ let validation_command =
     ]
 
 let realdata_main ~outdir ~indir ~preview ~use_diffsel ~use_c60 ~calc_dnds ?(np = 2) ?(mem = 2) ?(seed = Random.int Int.max_value) () =
+  let loggers = [
+      Console_logger.create () ;
+      Bistro_utils.Html_logger.create "report.html" ;
+  ] in
+
   (* seed-related stuff *)
   printf "Global seed: %i\n" seed;
   Out_channel.write_all "global.seed" ~data:(string_of_int seed);