fix libirmin hanging

mirage · Sep 4, 2024 · aeb6872 · aeb6872
1 parent 0fd47cc
commit aeb6872
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/libirmin/util.ml b/src/libirmin/util.ml
@@ -49,7 +49,7 @@ module Make (I : Cstubs_inverted.INTERNAL) = struct
     match Lwt.poll x with
     | Some x -> x
     | None ->
-        let () = Lwt_engine.iter true in
+        let () = Lwt_engine.iter false in
         run x
 
   module Root = struct