Commit 265897c0 authored by Philippe Veber's avatar Philippe Veber
Browse files

Detection_pipeline: include ops from query

parent 93b3460e
......@@ -15,6 +15,8 @@ end
module type S = sig
type query
include Query with type t := query
val amino_acid_alignment : query -> aminoacid_fasta file
val gene_tree : query -> nw file
......@@ -70,7 +72,7 @@ module type S = sig
end
module Make (Q : Query) = struct
open Q
include Q
let amino_acid_alignment d =
Utils.amino_acid_fasta_of_nucleotide_fasta (nucleotide_alignment d)
......
......@@ -15,6 +15,8 @@ end
module type S = sig
type query
include Query with type t := query
val amino_acid_alignment : query -> aminoacid_fasta file
val gene_tree : query -> nw file
......
......@@ -17,19 +17,12 @@ val family_id : query -> string
val alignment : query -> phylip file
val nucleotide_alignment : query -> nucleotide_fasta file
val tree_of_db :
Orthomam_db.t ->
branch_length_unit:[`Nucleotide | `Amino_acid | `Codon] ->
convergent_species:string list ->
nhx file
val tree :
branch_length_unit:[`Nucleotide | `Amino_acid | `Codon] ->
query ->
nhx file
include Detection_pipeline.S with type query := query
val species_with_echolocation : string list
......
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