me
/
guix
Archived
1
0
Fork 0
Code

download: "GUIX_DOWNLOAD_FALLBACK_TEST=none" disables fallback mechanisms. 

* guix/download.scm (url-fetch*): Handle (%download-fallback-test) set
to 'none.
master
Ludovic Courtès 2021-10-15 22:21:02 +02:00
parent 2d06103288
commit bd61d62182
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
guix/download.scm
View File

@ -472,6 +472,8 @@ download by itself using its own dependencies."
;; - #f, to use the normal download methods, not trying to exercise the ;; - #f, to use the normal download methods, not trying to exercise the
;; fallback mechanism; ;; fallback mechanism;
;; ;;
;; - 'none, to disable all the fallback mechanisms;
;;
;; - 'content-addressed-mirrors, to purposefully attempt to download from ;; - 'content-addressed-mirrors, to purposefully attempt to download from
;; a content-addressed mirror; ;; a content-addressed mirror;
;; ;;
@ -517,9 +519,9 @@ name in the store."
(error "'guix-daemon' is too old, please upgrade" builtins)) (error "'guix-daemon' is too old, please upgrade" builtins))
(built-in-download (or name file-name) (built-in-download (or name file-name)
(if (%download-fallback-test) (match (%download-fallback-test)
"https://example.org/does-not-exist" ((or #f 'none) url)
url) (_ "https://example.org/does-not-exist"))
#:guile guile #:guile guile
#:system system #:system system
#:hash-algo hash-algo #:hash-algo hash-algo