bppsuite: refined typing

067a967a · Philippe Veber · 741fd074 · 067a967a · 067a967a
Commit 067a967a authored Jun 15, 2018 by Philippe Veber
Hide whitespace changes
Inline Side-by-side

Showing with 5 additions and 4 deletions

lib/bppsuite.mli lib/bppsuite.mli +1 -1

lib/file_formats.ml lib/file_formats.ml +4 -3

No files found.
--- a/lib/bppsuite.mli
+++ b/lib/bppsuite.mli
@@ -5,4 +5,4 @@ open File_formats
 val bppseqgen :
  nb_sites:int ->
  tree:nhx workflow ->
-  (* nucleotide_ *)fasta workflow
+  nucleotide_fasta workflow
--- a/lib/file_formats.ml
+++ b/lib/file_formats.ml
@@ -6,6 +6,7 @@ class type nhx = object
  method format : [`nhx]
 end

-(* type nucleotide_fasta = < fasta ; alphabet : [`Nucleotide] > *)
-
-
+class type nucleotide_fasta = object
+  inherit fasta
+  method alphabet : [`Nucleotide]
+end