mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2025-01-13 14:40:21 -05:00
challenge: Use the same substitute URLs as guix-daemon.
* guix/scripts/challenge.scm (%default-options): Remove ‘substitute-urls’. (guix-challenge): Call ‘substitute-urls’ when OPTS doesn’t have it. Warn when ‘substitute-urls’ returns #f. Change-Id: I49be0e89404c1889970a3430967fbb3498d35d99
This commit is contained in:
parent
1e47148f46
commit
f63a8c5ca2
1 changed files with 8 additions and 3 deletions
|
@ -1,5 +1,5 @@
|
|||
;;; GNU Guix --- Functional package management for GNU
|
||||
;;; Copyright © 2015-2017, 2019-2022 Ludovic Courtès <ludo@gnu.org>
|
||||
;;; Copyright © 2015-2017, 2019-2023 Ludovic Courtès <ludo@gnu.org>
|
||||
;;;
|
||||
;;; This file is part of GNU Guix.
|
||||
;;;
|
||||
|
@ -504,7 +504,6 @@ (define mode
|
|||
|
||||
(define %default-options
|
||||
`((system . ,(%current-system))
|
||||
(substitute-urls . ,%default-substitute-urls)
|
||||
(difference-report . ,report-differing-files)))
|
||||
|
||||
|
||||
|
@ -539,7 +538,13 @@ (define-command (guix-challenge . args)
|
|||
(G_ "no arguments specified, nothing to do~%"))
|
||||
(exit 0))
|
||||
(x
|
||||
files))))
|
||||
files)))
|
||||
(urls (or urls
|
||||
(substitute-urls store)
|
||||
(begin
|
||||
(warning (G_ "could not determine current \
|
||||
substitute URLs; using defaults~%"))
|
||||
%default-substitute-urls))))
|
||||
(set-build-options store
|
||||
#:use-substitutes? #f)
|
||||
|
||||
|
|
Loading…
Reference in a new issue