Mirage_block_copy
module B = Mirage_block
module Make_seekable (B : B.S) : sig ... end
module Sparse_copy (From : Mirage_block_combinators_s.SEEKABLE) (Dest : B.S) : sig ... end
module Copy (From : B.S) (Dest : B.S) : sig ... end