Biocaml 0.4-dev : Biocaml_bam_alt.Alignment0.flags

let flags al =

  Int32.shift_right al.flag_nc 16

  |> Int32.to_int_exn (* because we are shifting right just before, Int32.to_int_exn cannot fail *)

  |> Sam.Flags.of_int