diff --git a/lib/xapi-fdcaps/operations.ml b/lib/xapi-fdcaps/operations.ml
index e278a114..7f7c9067 100644
--- a/lib/xapi-fdcaps/operations.ml
+++ b/lib/xapi-fdcaps/operations.ml
@@ -198,8 +198,7 @@ let check_output cmd args =
   | _ ->
       failwith (Printf.sprintf "%s exited nonzero" cmd)
 
-let with_temp_blk ?(sector_size = 512) name f
-    =
+let with_temp_blk ?(sector_size = 512) name f =
   let blkdev =
     check_output "losetup"
       [
diff --git a/lib/xapi-fdcaps/operations.mli b/lib/xapi-fdcaps/operations.mli
index be298901..ee4a9f36 100644
--- a/lib/xapi-fdcaps/operations.mli
+++ b/lib/xapi-fdcaps/operations.mli
@@ -224,10 +224,7 @@ val with_tempfile :
   Deletes the temporary file when [f] finishes. *)
 
 val with_temp_blk :
-     ?sector_size:int
-  -> string
-  -> (string * ([> rdwr], [> blk]) make -> 'a)
-  -> 'a
+  ?sector_size:int -> string -> (string * ([> rdwr], [> blk]) make -> 'a) -> 'a
 (** [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].