diff --git a/Makefile.am b/Makefile.am index 8988cdfa12..ee12725d5b 100644 --- a/Makefile.am +++ b/Makefile.am @@ -523,7 +523,7 @@ check-system: $(GOBJECTS) # Public keys used to sign substitutes. dist_pkgdata_DATA = \ - etc/substitutes/berlin.guixsd.org.pub \ + etc/substitutes/berlin.guix.gnu.org.pub \ etc/substitutes/ci.guix.gnu.org.pub \ etc/substitutes/ci.guix.info.pub diff --git a/etc/substitutes/berlin.guixsd.org.pub b/etc/substitutes/berlin.guix.gnu.org.pub similarity index 100% rename from etc/substitutes/berlin.guixsd.org.pub rename to etc/substitutes/berlin.guix.gnu.org.pub diff --git a/etc/substitutes/ci.guix.gnu.org.pub b/etc/substitutes/ci.guix.gnu.org.pub index b1d1e4d763..0574f6dfab 120000 --- a/etc/substitutes/ci.guix.gnu.org.pub +++ b/etc/substitutes/ci.guix.gnu.org.pub @@ -1 +1 @@ -berlin.guixsd.org.pub \ No newline at end of file +berlin.guix.gnu.org.pub \ No newline at end of file diff --git a/etc/substitutes/ci.guix.info.pub b/etc/substitutes/ci.guix.info.pub index b1d1e4d763..0574f6dfab 120000 --- a/etc/substitutes/ci.guix.info.pub +++ b/etc/substitutes/ci.guix.info.pub @@ -1 +1 @@ -berlin.guixsd.org.pub \ No newline at end of file +berlin.guix.gnu.org.pub \ No newline at end of file diff --git a/gnu/services/base.scm b/gnu/services/base.scm index 6ea7ef8e7e..83dc406aac 100644 --- a/gnu/services/base.scm +++ b/gnu/services/base.scm @@ -1481,7 +1481,7 @@ archive' public keys, with GUIX." (define %default-authorized-guix-keys ;; List of authorized substitute keys. - (list (file-append guix "/share/guix/berlin.guixsd.org.pub"))) + (list (file-append guix "/share/guix/berlin.guix.gnu.org.pub"))) (define-record-type* guix-configuration make-guix-configuration diff --git a/guix/build/download-nar.scm b/guix/build/download-nar.scm index cb146038ad..f768a8c6dd 100644 --- a/guix/build/download-nar.scm +++ b/guix/build/download-nar.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2017, 2019 Ludovic Courtès +;;; Copyright © 2017, 2019, 2020 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -42,10 +42,10 @@ "Return the fallback nar URL for ITEM--e.g., \"/gnu/store/cabbag3…-foo-1.2-checkout\"." ;; Here we hard-code nar URLs without checking narinfos. That's probably OK - ;; though. Use berlin.guixsd.org instead of its ci.guix.gnu.org front end to + ;; though. Use berlin.guix.gnu.org instead of its ci.guix.gnu.org front end to ;; avoid sending these requests to CDN providers without user consent. ;; TODO: Use HTTPS? The downside is the extra dependency. - (let ((bases '("http://berlin.guixsd.org")) + (let ((bases '("http://berlin.guix.gnu.org")) (item (basename item))) (append (map (cut string-append <> "/nar/gzip/" item) bases) (map (cut string-append <> "/nar/" item) bases)))) diff --git a/guix/self.scm b/guix/self.scm index e1350a7403..f70b1ecdd8 100644 --- a/guix/self.scm +++ b/guix/self.scm @@ -647,13 +647,13 @@ load path." ,(file-append* source "/etc/completion/zsh/_guix")) ("share/fish/vendor_completions.d/guix.fish" ,(file-append* source "/etc/completion/fish/guix.fish")) - ("share/guix/berlin.guixsd.org.pub" + ("share/guix/berlin.guix.gnu.org.pub" ,(file-append* source - "/etc/substitutes/berlin.guixsd.org.pub")) + "/etc/substitutes/berlin.guix.gnu.org.pub")) ("share/guix/ci.guix.gnu.org.pub" ;alias - ,(file-append* source "/etc/substitutes/berlin.guixsd.org.pub")) + ,(file-append* source "/etc/substitutes/berlin.guix.gnu.org.pub")) ("share/guix/ci.guix.info.pub" ;alias - ,(file-append* source "/etc/substitutes/berlin.guixsd.org.pub"))))) + ,(file-append* source "/etc/substitutes/berlin.guix.gnu.org.pub"))))) (define* (whole-package name modules dependencies #:key