file_formats.ml

open Bistro.Std
open Bistro_bioinfo.Std

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

class type nucleotide_fasta = object
  inherit fasta
  method alphabet : [`Nucleotide]
end