Use more guix.gnu.org.

* build-aux/build-self.scm (make-config.scm): Replace gnu.org/s/guix with guix.gnu.org.
* guix/scripts/publish.scm (render-home-page): Likewise.
* guix/self.scm (make-config.scm): Likewise.
This commit is contained in:
Tobias Geerinckx-Rice 2019-07-15 18:46:39 +02:00
parent 4a635d3d6e
commit 3fb3291e25
No known key found for this signature in database
GPG key ID: 0DB0FF884F556D79
3 changed files with 3 additions and 3 deletions

View file

@ -75,7 +75,7 @@ (define* (make-config.scm #:key zlib gzip xz bzip2
(package-name "GNU Guix") (package-name "GNU Guix")
(package-version "0") (package-version "0")
(bug-report-address "bug-guix@gnu.org") (bug-report-address "bug-guix@gnu.org")
(home-page-url "https://gnu.org/s/guix")) (home-page-url "https://guix.gnu.org"))
;; Hack so that Geiser is not confused. ;; Hack so that Geiser is not confused.
(define defmod 'define-module) (define defmod 'define-module)

View file

@ -694,7 +694,7 @@ (define (render-home-page request)
(h1 "GNU Guix Substitute Server") (h1 "GNU Guix Substitute Server")
(p "Hi, " (p "Hi, "
(a (@ (href (a (@ (href
"https://gnu.org/s/guix/manual/html_node/Invoking-guix-publish.html")) "https://guix.gnu.org/manual/en/html_node/Invoking-guix-publish.html"))
(tt "guix publish")) (tt "guix publish"))
" speaking. Welcome!"))) " speaking. Welcome!")))
port))))) port)))))

View file

@ -916,7 +916,7 @@ (define* (make-config.scm #:key zlib lzlib gzip xz bzip2
(package-name "GNU Guix") (package-name "GNU Guix")
(package-version "0") (package-version "0")
(bug-report-address "bug-guix@gnu.org") (bug-report-address "bug-guix@gnu.org")
(home-page-url "https://gnu.org/s/guix")) (home-page-url "https://guix.gnu.org"))
;; Hack so that Geiser is not confused. ;; Hack so that Geiser is not confused.
(define defmod 'define-module) (define defmod 'define-module)