Global seed is now written to file (outdir/global.seed).

lib/pipeline.ml

@@ -384,6 +384,7 @@ let simulation_main ~outdir ?(ns = 0) ?(np = 2) ?(mem = 2) ~tree_dir ~profile_fn
 
 let validation_main ~outdir ?(indir = "") ?(ns = 0) ?(np = 2) ?(mem = 2) ~preview ~fast_mode ~no_Ne ~ne_test ~no_HaPC ~tree_dir ~profile_fn ~use_concat ~add_indels ~only_simu ?(seed = Random.int Int.max_value) () =
   printf "Global seed: %i\n" seed;
+  Out_channel.write_all (Filename.concat outdir "global.seed") ~data:(string_of_int seed);
   (* simulated trees *)
   Random.init seed ;
   let nb_sites = if ns = 0 then (if preview then 20 else 50) else ns in