search for: itervalu

...) 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 let printable_name = - try Some (List.assoc "name" fields) with Not_found -&g...

...ead. > > 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 > > > > let printable_name = > > >...