Making --write-masked respect output dir.

Closes #317. cc @metasoarous
matsen · Nov 5, 2013 · fbcda2b · fbcda2b
1 parent bb31136
commit fbcda2b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/pplacer_src/core.ml b/pplacer_src/core.ml
@@ -145,7 +145,7 @@ let pplacer_core (type a) (type b) m prefs figs prior (model: a) ref_align gtree
       Alignment.to_fasta
         (Alignment.mask_align mask_arr
            (Alignment.stack [|query_name, query_seq|] ref_align))
-        (query_name^".mask.fasta");
+        ((out_dir prefs)^"/"^query_name^".mask.fasta");
     (* Make the edges for our three-taxon tree that will be used for the second
      * stage of optimization. We will breaking interface by changing
      * them in place later, but it would be silly to have setting functions for