diff options
author | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-08-11 11:21:42 -0400 |
---|---|---|
committer | Maxim Cournoyer <maxim.cournoyer@gmail.com> | 2023-08-26 11:38:56 -0400 |
commit | bdaef69556f68595e5ec0db1710bf8ad208abe20 (patch) | |
tree | 5fd394bc8aec998a2bae30205ce17600cfe6f033 /guix/download.scm | |
parent | 6953fb924111c400a064255d8274a2caa68f7436 (diff) |
gnu-maintenance: Allow mirror URLs to fallback to the generic HTML updater.
* guix/gnu-maintenance.scm (http-url?): Extract from html-updatable-package?,
modify to return the HTTP URL, and support the mirror:// scheme.
(%disallowed-hosting-sites): New variable, extracted from
html-updatable-package.
(html-updatable-package?): Rewrite a mirror:// URL to an HTTP or HTTPS one.
* guix/download.scm (%mirrors): Update comment.
Diffstat (limited to 'guix/download.scm')
-rw-r--r-- | guix/download.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/download.scm b/guix/download.scm index ce6ebd0df8..31a41e8183 100644 --- a/guix/download.scm +++ b/guix/download.scm @@ -51,7 +51,10 @@ ;;; Code: (define %mirrors - ;; Mirror lists used when `mirror://' URLs are passed. + ;; Mirror lists used when `mirror://' URLs are passed. The first mirror + ;; entry of each set should ideally be the most authoritative one, as that's + ;; what the generic HTML updater will pick to look for updates, with + ;; possible exceptions when the authoritative mirror is too slow. (let* ((gnu-mirrors '(;; This one redirects to a (supposedly) nearby and (supposedly) ;; up-to-date mirror. |