robur/opam-mirror
4
0
Fork 0
Code Issues 6 Pull requests 2 Projects Releases Packages Wiki Activity Actions

Use Map.fold over List.fold_left ... (Map.bindings _)

Browse source
This commit is contained in:
Reynir Björnsson 2024-11-19 16:26:02 +01:00
parent ec45a6a77a
commit a9c249ea86
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
mirage/unikernel.ml
View file

@ -158,7 +158,8 @@ module Make
let url_csums, errs = Opam_file.extract_urls path data in let url_csums, errs = Opam_file.extract_urls path data in
List.iter (fun (`Msg msg) -> add_parse_error path msg) errs; List.iter (fun (`Msg msg) -> add_parse_error path msg) errs;
let upstream hm = let upstream hm =
List.fold_left (fun set (hash, hash_value) -> HM.fold
(fun hash hash_value set ->
List.fold_left (fun set cache_url -> List.fold_left (fun set cache_url ->
let url = let url =
cache_url ^ "/" ^ Archive_checksum.Hash.to_string hash ^ cache_url ^ "/" ^ Archive_checksum.Hash.to_string hash ^
@ -166,7 +167,7 @@ module Make
in in
SSet.add url set) SSet.add url set)
set (K.upstream_caches ())) set (K.upstream_caches ()))
SSet.empty (HM.bindings hm) hm SSet.empty
in in
List.fold_left (fun acc (url, csums, mirrors) -> List.fold_left (fun acc (url, csums, mirrors) ->
if HM.cardinal csums = 0 then if HM.cardinal csums = 0 then