fixup! CP-47001: [xapi-fdcaps]: add operations module and tests

lib/xapi-fdcaps/operations.ml

@@ -198,7 +198,7 @@ let check_output cmd args =
   | _ ->
       failwith (Printf.sprintf "%s exited nonzero" cmd)
 
-let with_temp_blk ?(sector_size = 512) ?delay_read_ms:_ ?delay_write_ms:_ name f
+let with_temp_blk ?(sector_size = 512) name f
     =
   let blkdev =
     check_output "losetup"

lib/xapi-fdcaps/operations.mli

@@ -225,20 +225,16 @@ val with_tempfile :
 
 val with_temp_blk :
      ?sector_size:int
-  -> ?delay_read_ms:float
-  -> ?delay_write_ms:float
   -> string
   -> (string * ([> rdwr], [> blk]) make -> 'a)
   -> 'a
-(** [with_temp_blk ?sector_size ?delay_read ?delay_write path f] calls [f (name, fd)] with a name and file descriptor pointing to a block device.
+(** [with_temp_blk ?sector_size path f] calls [f (name, fd)] with a name and file descriptor pointing to a block device.
   The block device is temporarily created on top of [path].
 
   Deletes the block device when [f] finishes.
   Only works when run as root.
 
   @param sector_size between 512 and 4096
-  @param delay_read_ms delays read operations by specified milliseconds
-  @param delay_write_ms delays write operations by specified milliseconds
 *)
 
 (** {1 Operation wrappers}