Commit ad99038e authored by Philippe Veber's avatar Philippe Veber
Browse files

update wrt convdet

parent 1f1966c6
......@@ -56,7 +56,7 @@ let%pworkflow simulator ?branch_factor ?seed ~n_h0 ~n_ha ~ne_s ~tree ~fitness_pr
|> List.map ~f:(fun { name } -> Option.value_exn name) in
Out_channel.with_file [%dest] ~f:(fun oc ->
List.iter2_exn species_name ali ~f:(fun description sequence ->
fprintf oc ">%s\n%s\n" description sequence
fprintf oc ">%s\n%s\n" description (sequence :> string)
)
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment