Skip to content

Instantly share code, notes, and snippets.

Avatar

isaiah isaiah-perumalla

View GitHub Profile
View pv.ml
open Lwt
let block_size = 256 * 4096
let ifd = Lwt_unix.stdin
let ofd = Lwt_unix.stdout
let print spd =
try_lwt
Lwt_io.eprintf "%s\r" (Speed.to_string spd)
with Speed.Undefined -> return_unit