Source file `bam.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
open CFStream

include Biocaml_unix.Bam

let with_file fn ~f =
  with_file fn ~f:(fun h xs ->
      Ok (f h (Stream.map xs ~f:ok_exn))
    )
  |> ok_exn

let with_file0 fn ~f =
  with_file0 fn ~f:(fun h xs ->
      Ok (f h (Stream.map xs ~f:ok_exn))
    )
  |> ok_exn