05/05: gnu: Use 'mirror://' URLs in several places.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 966a543b369bad3d35f8c1e3fa30c34687217427
Author: Ludovic Courtès <address@hidden>
Date:   Sat Nov 19 18:42:12 2016 +0100

    gnu: Use 'mirror://' URLs in several places.
    
    * gnu/packages/emacs.scm (m17n-lib)[source]: Use 'mirror://'.
    * gnu/packages/games.scm (extremetuxracer)[source]: Likewise.
    * gnu/packages/gcc.scm (%gcc-infrastructure): Likewise.
    * gnu/packages/gtk.scm (python2-pygtk)[source]: Likewise.
    * gnu/packages/perl.scm (perl)[source]: Likewise.
    * gnu/packages/telephony.scm (exosip)[source]: Likewise.
    * gnu/packages/wm.scm (xmonad)[source]: Likewise.
    (ghc-xmonad-contrib)[source]: Likewise.
---
 gnu/packages/emacs.scm     |    5 ++---
 gnu/packages/games.scm     |    2 +-
 gnu/packages/gcc.scm       |    2 +-
 gnu/packages/gtk.scm       |    2 +-
 gnu/packages/perl.scm      |    2 +-
 gnu/packages/telephony.scm |    5 ++---
 gnu/packages/wm.scm        |    4 ++--
 7 files changed, 10 insertions(+), 12 deletions(-)

diff --git a/gnu/packages/emacs.scm b/gnu/packages/emacs.scm
index ec672bc..a5dd7a9 100644
--- a/gnu/packages/emacs.scm
+++ b/gnu/packages/emacs.scm
@@ -3355,9 +3355,8 @@ This package contains the library database.")
     (source
      (origin
        (method url-fetch)
-       (uri (string-append
-             "http://download.savannah.gnu.org/releases/m17n/m17n-lib-";
-             version ".tar.gz"))
+       (uri (string-append "mirror://savannah/m17n/m17n-lib-"
+                           version ".tar.gz"))
        (sha256
         (base32 "10yv730i25g1rpzv6q49m6xn4p8fjm7jdwvik2h70sn8w3hm7f4f"))))
     (build-system gnu-build-system)
diff --git a/gnu/packages/games.scm b/gnu/packages/games.scm
index e8f848a..e6a970a 100644
--- a/gnu/packages/games.scm
+++ b/gnu/packages/games.scm
@@ -946,7 +946,7 @@ Protocol).")
     (source (origin
               (method url-fetch)
               (uri (string-append
-                    
"http://downloads.sourceforge.net/project/extremetuxracer/releases/";
+                    "mirror://sourceforge/extremetuxracer/releases/"
                     version "/etr-" version ".tar.xz"))
               (sha256
                (base32
diff --git a/gnu/packages/gcc.scm b/gnu/packages/gcc.scm
index e190e50..c26cc4f 100644
--- a/gnu/packages/gcc.scm
+++ b/gnu/packages/gcc.scm
@@ -45,7 +45,7 @@
 
 (define %gcc-infrastructure
   ;; Base URL for GCC's infrastructure.
-  "ftp://gcc.gnu.org/pub/gcc/infrastructure/";)
+  "mirror://gcc/infrastructure/")
 
 (define (gcc-configure-flags-for-triplet target)
   "Return a list of additional GCC `configure' flags for TARGET, a GNU triplet.
diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm
index 7fa7e12..6a9e7cf 100644
--- a/gnu/packages/gtk.scm
+++ b/gnu/packages/gtk.scm
@@ -1116,7 +1116,7 @@ extensive documentation, including API reference and a 
tutorial.")
     (source
      (origin
       (method url-fetch)
-      (uri (string-append "http://ftp.gnome.org/pub/GNOME/sources";
+      (uri (string-append "mirror://gnome/sources"
                           "/pygtk/" (version-major+minor version)
                           "/pygtk-" version ".tar.bz2"))
       (sha256
diff --git a/gnu/packages/perl.scm b/gnu/packages/perl.scm
index a044a32..ab61201 100644
--- a/gnu/packages/perl.scm
+++ b/gnu/packages/perl.scm
@@ -48,7 +48,7 @@
     (version "5.24.0")
     (source (origin
              (method url-fetch)
-             (uri (string-append "http://www.cpan.org/src/5.0/perl-";
+             (uri (string-append "mirror://cpan/src/5.0/perl-"
                                  version ".tar.gz"))
              (sha256
               (base32
diff --git a/gnu/packages/telephony.scm b/gnu/packages/telephony.scm
index 8f2a10f..3d5e58e 100644
--- a/gnu/packages/telephony.scm
+++ b/gnu/packages/telephony.scm
@@ -134,9 +134,8 @@ to initiate and control SIP sessions.")
    (version "4.1.0")
    (source (origin
             (method url-fetch)
-            (uri (string-append
-                  
"http://download.savannah.gnu.org/releases/exosip/libeXosip2-";
-                  version ".tar.gz"))
+            (uri (string-append "mirror://savannah/exosip/libeXosip2-"
+                                version ".tar.gz"))
             (sha256 (base32
                      "17cna8kpc8nk1si419vgr6r42k2lda0rdk50vlxrw8rzg0xp2xrw"))))
    (build-system gnu-build-system)
diff --git a/gnu/packages/wm.scm b/gnu/packages/wm.scm
index 90d1dc1..999f789 100644
--- a/gnu/packages/wm.scm
+++ b/gnu/packages/wm.scm
@@ -299,7 +299,7 @@ prompt.")
     (synopsis "Tiling window manager")
     (source (origin
               (method url-fetch)
-              (uri (string-append "http://hackage.haskell.org/package/xmonad/";
+              (uri (string-append "mirror://hackage/package/xmonad/"
                                   name "-" version ".tar.gz"))
               (sha256
                (base32
@@ -355,7 +355,7 @@ tiled on several screens.")
     (source
      (origin
        (method url-fetch)
-       (uri (string-append "http://hackage.haskell.org/package/xmonad-contrib/";
+       (uri (string-append "mirror://hackage/package/xmonad-contrib/"
                            "xmonad-contrib-" version ".tar.gz"))
        (sha256
         (base32