mirage-block-lwt
Mirage_block_lwt.Fill
module A : S
val random : A.t -> (unit, A.write_error) result Lwt.t
Fill a block device with pseudorandom data