Sparse_copy (mirage-block-combinators.Mirage_block_copy.Copy.Sparse

module B = Mirage_block

type error = [

| `A of From_seekable.error

| `B of Dest.write_error

| `Different_sizes

| `Is_read_only

]

val pp_error : 
  Stdlib.Format.formatter ->
  [< `A of From_seekable.error
  | `B of Dest.write_error
  | `Different_sizes
  | `Is_read_only ] ->
  unit

val v : 
  src:From_seekable.t ->
  dst:Dest.t ->
  ( unit,
    [> `A of From_seekable.error | `B of Dest.write_error | `Different_sizes ] )
    Stdlib.result
    Lwt.t