fixup faster merge

mirage · May 17, 2019 · 566d757 · 566d757
1 parent 84a1e5d
commit 566d757
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/src/irmin-pack/irmin_pack.ml b/src/irmin-pack/irmin_pack.ml
@@ -531,7 +531,7 @@ module Index (H : Irmin.Hash.S) = struct
     in
     let rec go last_read l =
       get_index_entry last_read >>= function
-      | None -> Lwt_list.iter_p (fun (_, e) -> append_entry tmp e) l
+      | None -> Lwt_list.iter_s (fun (_, e) -> append_entry tmp e) l
       | Some e -> (
         match l with
         | (k, v) :: t ->
@@ -543,7 +543,7 @@ module Index (H : Irmin.Hash.S) = struct
             else append_entry tmp v >|= fun () -> (Some e, t) )
             >>= fun (last, rst) ->
             if !offset >= IO.offset index && last = None then
-              Lwt_list.iter_p (fun (_, e) -> append_entry tmp e) rst
+              Lwt_list.iter_s (fun (_, e) -> append_entry tmp e) rst
             else go last rst
         | [] ->
             append_entry tmp e >>= fun () ->