smondet

# 
# Create a directory, put this make file in it
# and for now type `make bam` or `make vcf`.
#
# You also might have to change the `ADAM` variable below

TARGETS=bam vcf
.PHONY: all $(TARGETS)

all:

smondet

let lwt_monitor_info =
  let open Lwt in
  let started = ref false in
  let previous = ref (None : float option) in
  let reads = ref [] in
  fun () ->
    begin match !started with
    | false ->
      Lwt.ignore_result begin