[tools] 01/01: Switch to deb.debian.org, httpredir is too unreliable

[Joachim Breitner]

This is an automated email from the git hooks/post-receive script.

nomeata pushed a commit to branch master
in repository tools.

commit 3892676edf10a28864e363ce3303858bee700892
Author: Joachim Breitner <mail at joachim-breitner.de>
Date:   Fri Mar 18 09:48:45 2016 +0100

    Switch to deb.debian.org, httpredir is too unreliable
---
 binNMUs.hs | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/binNMUs.hs b/binNMUs.hs
index 989bd80..7cd8676 100644
--- a/binNMUs.hs
+++ b/binNMUs.hs
@@ -343,10 +343,13 @@ fetchWannaBuildHTTP conf a = do
 
 -- Reading archive files
 
+debianMirror :: String
+debianMirror = "http://cdn-fastly.deb.debian.org/debian"
+
 packageURL :: String -> Arch -> String
-packageURL "sid" a        = printf "http://http.debian.net/debian/dists/sid/main/binary-%s/Packages.gz" a
+packageURL "sid" a        = printf "%s/dists/sid/main/binary-%s/Packages.gz" debianMirror a
 packageURL "buildd-sid" a = printf "http://incoming.debian.org/debian-buildd/dists/buildd-sid/main/binary-%s/Packages.gz" a
-packageURL "experimental" a    = printf "http://http.debian.net/debian/dists/experimental/main/binary-%s/Packages.gz" a
+packageURL "experimental" a    = printf "%s/dists/experimental/main/binary-%s/Packages.gz" debianMirror a
 packageURL "buildd-experimental" a = printf "http://incoming.debian.org/debian-buildd/dists/buildd-experimental/main/binary-%s/Packages.gz" a
 
 acquirePackagesHTTP :: Conf -> String -> Arch -> IO [Binary]

-- 
Alioth's /usr/local/bin/git-commit-notice on /srv/git.debian.org/git/pkg-haskell/tools.git