add faa in output

c0d4872d · Carine Rey · Philippe Veber · 29f00885 · c0d4872d
Commit c0d4872d authored Jan 18, 2019 by Carine Rey Committed by Philippe Veber Sep 20, 2019
Hide whitespace changes
Inline Side-by-side

Showing with 2 additions and 0 deletions

lib/raw_dataset.ml lib/raw_dataset.ml +2 -0

No files found.
--- a/lib/raw_dataset.ml
+++ b/lib/raw_dataset.ml
@@ -18,8 +18,10 @@ let repo ~prefix rd =
  ]

 let repo_realdata ~tree_prefix ~ali_prefix rd =
+    let faa = Bppsuite.fna2faa ~fna:rd.fna in
    Repo.[
        item [ali_prefix ^ ".fna"] rd.fna ;
+        item [ali_prefix ^ ".faa"] faa ;
        item [tree_prefix ^ "." ^ ali_prefix ^ ".nhx"] rd.input_tree ;
      ]
      |> Repo.shift ali_prefix