RER converge : phenotypes file from species list

lib/rer_converge.ml

@@ -2,6 +2,13 @@ open Core_kernel
 open Bistro
 open Bistro.Shell_dsl
 
+let phenotypes_of_convergent_species species_list =
+  let f =
+    [%workflow
+      fun dest -> Out_channel.write_lines dest [%eval species_list]]
+  in
+  Workflow.path_plugin ~descr:"Phenotypes file" f
+
 let gene_tree_file gene_trees =
   let gene_ids, newicks = List.unzip gene_trees in
   let f =

lib/rer_converge.mli

 open Bistro
 open File_formats
 
+val phenotypes_of_convergent_species :
+  string list workflow -> tsv path workflow
+
 val gene_tree_file : (string * newick file) list -> tsv file
 
 val rer_converge :