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