Biocaml 0.4-dev : Biocaml_bam_alt.Header

struct

 type t = {

  ref_seq : Sam.ref_seq array ;

  sam_header : Biocaml_sam.header ;

 }



 let to_sam h = h.sam_header

 let of_sam sam_header = {

  ref_seq = Array.of_list sam_header.Sam.ref_seqs ;

  sam_header

 }



end