file_formats.ml 184 Bytes
Newer Older
1 2 3 4 5 6 7 8 9 10 11
open Bistro.Std
open Bistro_bioinfo.Std

class type nhx = object
  inherit text_file
  method format : [`nhx]
end

(* type nucleotide_fasta = < fasta ; alphabet : [`Nucleotide] > *)