branch master updated: guix: Replace defective freemirror.org.

[guix-commits]

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

nckx pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 0081807e16 guix: Replace defective freemirror.org.
0081807e16 is described below

commit 0081807e161a8632ae2bddbcefc040d6992134c3
Author: Tobias Geerinckx-Rice <me@tobias.gr>
AuthorDate: Sun Nov 13 01:00:04 2022 +0100

    guix: Replace defective freemirror.org.
    
    This ‘mirror’ is particularly problematic because it's the only one checked
    by ‘guix refresh’.
    
    * guix/gnu-maintenance.scm (%savannah-base): Substitute freedif.org.
    * guix/download.scm (%mirrors): Likewise.
    
    Reported by sash-kan on #guix.
---
 guix/download.scm        | 2 +-
 guix/gnu-maintenance.scm | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/guix/download.scm b/guix/download.scm
index 29a8f99034..2e9ecb43fc 100644
--- a/guix/download.scm
+++ b/guix/download.scm
@@ -97,7 +97,7 @@
        "http://hackage.haskell.org/";)
       (savannah           ; http://download0.savannah.gnu.org/mirmon/savannah/
        "https://download.savannah.gnu.org/releases/";
-       "https://nongnu.freemirror.org/nongnu/";
+       "https://de.freedif.org/savannah/";
        "https://ftp.cc.uoc.gr/mirrors/nongnu.org/";
        "http://ftp.twaren.net/Unix/NonGNU/"; ; https appears unsupported
        "https://mirror.csclub.uwaterloo.ca/nongnu/";
diff --git a/guix/gnu-maintenance.scm b/guix/gnu-maintenance.scm
index 3ba4b86a4f..1142c53d3d 100644
--- a/guix/gnu-maintenance.scm
+++ b/guix/gnu-maintenance.scm
@@ -687,9 +687,9 @@ GNOME packages; EMMS is included though, because its 
releases are on gnu.org."
 
 (define %savannah-base
   ;; One of the Savannah mirrors listed at
-  ;; <http://download0.savannah.gnu.org/mirmon/savannah/> that serves valid
+  ;; <https://download.savannah.gnu.org/mirmon/savannah/> that serves valid
   ;; HTML (unlike <https://download.savannah.nongnu.org/releases>.)
-  "https://nongnu.freemirror.org/nongnu";)
+  "https://de.freedif.org/savannah/";)
 
 (define (latest-savannah-release package)
   "Return the latest release of PACKAGE."