bppsuite: debug suppression of Bistro.EDSL.insert

lib/bppsuite.ml

@@ -109,6 +109,7 @@ let bppseqgen_multi_profiles ?(descr="") ~profile_f ~profile_c ~nb_sites ~tree ~
         ];*)
         cmd "cat" ~stdout:config_f [
           file_dump (conf_file_bppseqgen_multi_profiles ~tree ~profile_f ~config ~ne_c ~ne_a ~nb_sites_per_profile) ;
+          file_dump (seq ~sep:"\n" [ string "\n" ]) ;
           dep nodes ;
         ];
         cmd "bash" [(file_dump (bppseqgen_multi_profiles_script ~config:config_f  ~out  ~profile_c:profile_c_ok ~seed))];

lib/debug.ml

@@ -16,17 +16,23 @@ let workflow_of_template t =
     cmd "cp" [ file_dump t ; dest ]
   ]
 
+
+
 let config_file () =
+  let open Bistro.EDSL in
+  let model = Convergence_hypothesis.(H0 (Fixed 1.)) in
   let tree_dir = "/home/pveber/w/reviewphiltrans/example/trees_test/" in
   let tree = "tree_small_bl.nhx" in
-  let model = Convergence_hypothesis.(H0 (Fixed 1.)) in
   let input_tree = Bistro.EDSL.input (Filename.concat tree_dir tree) in
   let tree_prefix = Filename.chop_extension tree in
   let tree_dataset = Tree_dataset.prepare ~descr:("simulated_data." ^ tree_prefix) input_tree in
   let nodes = Tree_dataset.nodes tree_dataset model in
-  Convergence_hypothesis.bpp_config_F nodes model
-  |> Bistro.EDSL.seq ~sep:"\n"
-  |> workflow_of_template
+  workflow [
+    cmd "cat" ~stdout:dest [
+      file_dump (Bistro.EDSL.seq ~sep:"\n" (Convergence_hypothesis.bpp_config_F model @ [ string "\n" ])) ;
+      dep nodes ;
+    ];
+  ]
 
 
 let main () =