Mirage_block_copy.Copymodule From_seekable : sig ... endmodule Sparse_copy : sig ... endtype error = Sparse_copy.errorval pp_error :
Stdlib.Format.formatter ->
[< `A of From_seekable.error
| `B of Dest.write_error
| `Different_sizes
| `Is_read_only ] ->
unitval 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