(** FASTQ data. *)


type record = {
  name: string;
  sequence: string;
  comment: string;
  qualities: string;
} 

type parser

val feed_line: parser -> string -> unit

val next :
  parser ->
  [> `error of
      [> `sequence_and_qualities_do_not_match of int * string * string
      | `wrong_comment_line of int * string
      | `wrong_name_line of int * string ]
  | `nothing_ready
  | `record of record ]

(** FASTQ data. *)


type record = {
  name: string;
  sequence: string;
  comment: string;
  qualities: string;
} 

type parser
val parser: unit -> parser
  
val feed_line: parser -> string -> unit

val next :
  parser ->
  [> `error of
      [> `sequence_and_qualities_do_not_match of int * string * string
      | `wrong_comment_line of int * string
      | `wrong_name_line of int * string ]
  | `nothing_ready
  | `record of record ]

Fix missing function in the interface
Fix missing function in the interface
