Mirror only form the specified mirror

(rather than using the mirrors from mirrors.json)
haskell · Dec 30, 2015 · 8dba414 · 8dba414
1 parent 1c44e50
commit 8dba414
Showing 1 changed file with 3 additions and 1 deletion.
diff --git a/Distribution/Client/Mirror/Repo/Secure.hs b/Distribution/Client/Mirror/Repo/Secure.hs
@@ -68,7 +68,9 @@ withSourceRepo verbosity httpLib uri cacheDir threshold keys callback = do
           }
 
         repoOpts :: Sec.Remote.RepoOpts
-        repoOpts = Sec.Remote.defaultRepoOpts
+        repoOpts = Sec.Remote.defaultRepoOpts {
+            Sec.Remote.repoAllowAdditionalMirrors = False
+          }
 
         logger :: Sec.LogMessage -> IO ()
         logger msg = when (verbosity >= verbose) $