mirage-block-combinators
Mirage_block_compare.Compare
module From : B.S
module Dest : B.S
type error = [
| `A of From.error
| `B of Dest.error
]
val pp_error : Format.formatter -> [< `A of From.error | `B of Dest.error ] -> unit
val v : From.t -> Dest.t -> (int, [> `A of From.error | `B of Dest.error ]) result Lwt.t