Module Mirage_block_compare

module B = Mirage_block
module Compare (From : B.S) (Dest : B.S) : sig ... end