search for: find_elem

...); - Hashtbl.add fseen field true + Hashtbl.add fseen hashkey true ) fields ) sections; @@ -162,25 +163,32 @@ let get_index ~prog ~debug ~downloader ~sigchecker source = let entries = List.map ( fun (n, fields) -> + let find_elem key subkey fields = + match List.filter ( + fun (iterkey, itersubkey, itervalue) -> + iterkey = key && itersubkey = subkey + ) fields with + | [] -> raise Not_found + | (_, _, value) :: _ -> value in...

...ring (* key + subkey + value *) Indeed, they work that way. It seemed not totally clear for the documentations I've read. > > let entries = > > > > List.map ( > > > > fun (n, fields) -> > > > > + let find_elem key subkey fields = > > + match List.filter ( > > + fun (iterkey, itersubkey, itervalue) -> > > + iterkey = key && itersubkey = subkey > > + ) fields with > > + | [] -> raise Not_found &gt...