irmin: Bring iter back

src/irmin-pack/io/lru.ml

@@ -87,3 +87,5 @@ let mem { lru; _ } k = Internal.mem lru k
 let clear t =
   Internal.clear t.lru;
   t.total_weight <- 0
+
+let iter { lru; _ } f = Internal.iter lru (fun k wv -> f k (v wv))

src/irmin-pack/io/lru.mli

@@ -36,3 +36,4 @@ val add : t -> int63 -> Irmin_pack.Pack_value.weight -> value -> unit
 val find : t -> key -> value
 val mem : t -> key -> bool
 val clear : t -> unit
+val iter : t -> (key -> value -> unit) -> unit

src/irmin/lru.ml

@@ -160,4 +160,6 @@ module Make (H : Hashtbl.HashedType) = struct
     in
     Xt.commit { tx }
 
+  let iter t f =
+    HT.iter (fun k q -> f k (snd q.Q.value)) t.ht
 end

src/irmin/lru.mli

@@ -23,5 +23,6 @@ module Make (H : Hashtbl.HashedType) : sig
   val find : 'a t -> H.t -> 'a
   val mem : 'a t -> H.t -> bool
   val clear : 'a t -> unit
+  val iter : 'a t -> (H.t -> 'a -> unit) -> unit
   val drop : 'a t -> 'a option
 end