autoformat

mirage · May 18, 2024 · 27451e6 · 27451e6
1 parent 3cd1610
commit 27451e6
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 5 deletions.
diff --git a/lib/time.ml b/lib/time.ml
@@ -34,13 +34,15 @@ type t = int64
 module SleepQueue = Binary_heap.Make (struct
   type t = Mirage_time.sleep
 
-  let compare Mirage_time.{ time = t1; _ } Mirage_time.{ time = t2; _ } = compare t1 t2
+  let compare Mirage_time.{ time = t1; _ } Mirage_time.{ time = t2; _ } =
+    compare t1 t2
 end)
 
 (* Threads waiting for a timeout to expire: *)
 let sleep_queue =
   let dummy =
-    Mirage_time.{ time = time (); canceled = false; thread = Lwt.wait () |> snd }
+    Mirage_time.
+      { time = time (); canceled = false; thread = Lwt.wait () |> snd }
   in
   SleepQueue.create ~dummy 0
 
@@ -73,6 +75,7 @@ let rec get_next_timeout () =
 let select_next () =
   (* Transfer all sleepers added since the last iteration to the main
      sleep queue: *)
-  List.iter (fun e -> SleepQueue.add sleep_queue e)
+  List.iter
+    (fun e -> SleepQueue.add sleep_queue e)
     (Mirage_time.new_sleepers ());
   get_next_timeout ()
diff --git a/lib/xen.ml b/lib/xen.ml
@@ -219,13 +219,15 @@ module Export = struct
     match try_end_access ~release_ref g with
     | Ok () -> Lwt.return_unit
     | Error `Busy ->
-        Mirage_time.sleep_ns ten_seconds_in_ns >>= fun () -> end_access ~release_ref g
+        Mirage_time.sleep_ns ten_seconds_in_ns >>= fun () ->
+        end_access ~release_ref g
 
   let rec unshare ~release_refs t =
     match try_unshare ~release_refs t with
     | Ok () -> Lwt.return_unit
     | Error `Busy ->
-        Mirage_time.sleep_ns ten_seconds_in_ns >>= fun () -> unshare ~release_refs t
+        Mirage_time.sleep_ns ten_seconds_in_ns >>= fun () ->
+        unshare ~release_refs t
 
   let share_pages ~domid ~count ~writable =
     (* First allocate a list of n pages. *)