From e4744ff40afafcef70d1143c346ad694b60874b4 Mon Sep 17 00:00:00 2001
From: Hannes Mehnert <hannes@mehnert.org>
Date: Fri, 14 Oct 2022 15:20:42 +0200
Subject: [PATCH] use cache urls from opam config

---
 lib/opam.ml | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lib/opam.ml b/lib/opam.ml
index 1ba44d744..9d17bdb68 100644
--- a/lib/opam.ml
+++ b/lib/opam.ml
@@ -62,7 +62,8 @@ let pull_tree_with_cache' ~cache_dir ~url ~hashes ~dir =
   (* Opam requires a label for the pull, it's only used for logging *)
   let opam_dir = OpamFilename.Dir.of_string dir_str in
   let open OpamProcess.Job.Op in
-  OpamRepository.pull_tree ~cache_dir label opam_dir hashes [ url ] @@| function
+  let cache_urls = OpamFile.Config.dl_cache global_state.config in
+  OpamRepository.pull_tree ~cache_urls ~cache_dir label opam_dir hashes [ url ] @@| function
   | Result _ | Up_to_date _ -> Ok ()
   | Not_available (_, long_msg) ->
       Error (`Msg (Printf.sprintf "Failed to pull %s: %s" label long_msg))