summaryrefslogtreecommitdiff
path: root/guix/download.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2021-10-15 22:21:02 +0200
committerLudovic Courtès <ludo@gnu.org>2021-10-15 23:16:28 +0200
commitbd61d62182bfda4a695757ec66810b28e8e1a6d0 (patch)
tree9ed2c06455f42d0e7bc47fcbc8fd20b3f33728ac /guix/download.scm
parent2d06103288a1e6392db665b46eff71d243ecb40c (diff)
download: "GUIX_DOWNLOAD_FALLBACK_TEST=none" disables fallback mechanisms.
* guix/download.scm (url-fetch*): Handle (%download-fallback-test) set to 'none.
Diffstat (limited to 'guix/download.scm')
-rw-r--r--guix/download.scm8
1 files changed, 5 insertions, 3 deletions
diff --git a/guix/download.scm b/guix/download.scm
index d5351d0673..4e219c9f49 100644
--- a/guix/download.scm
+++ b/guix/download.scm
@@ -472,6 +472,8 @@ download by itself using its own dependencies."
;; - #f, to use the normal download methods, not trying to exercise the
;; fallback mechanism;
;;
+ ;; - 'none, to disable all the fallback mechanisms;
+ ;;
;; - 'content-addressed-mirrors, to purposefully attempt to download from
;; a content-addressed mirror;
;;
@@ -517,9 +519,9 @@ name in the store."
(error "'guix-daemon' is too old, please upgrade" builtins))
(built-in-download (or name file-name)
- (if (%download-fallback-test)
- "https://example.org/does-not-exist"
- url)
+ (match (%download-fallback-test)
+ ((or #f 'none) url)
+ (_ "https://example.org/does-not-exist"))
#:guile guile
#:system system
#:hash-algo hash-algo