mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
weather: Parameterize '%graft?' upfront.
* guix/scripts/weather.scm (guix-weather): Parameterize %GRAFT? upfront.
This commit is contained in:
parent
f42f39ad68
commit
e7671685a8
1 changed files with 12 additions and 8 deletions
|
@ -500,7 +500,12 @@ (define (package-list opts)
|
|||
(if file (load-manifest file) '())))))
|
||||
|
||||
(with-error-handling
|
||||
(parameterize ((current-terminal-columns (terminal-columns)))
|
||||
(parameterize ((current-terminal-columns (terminal-columns))
|
||||
|
||||
;; Set grafting upfront in case the user's input depends on
|
||||
;; it (e.g., a manifest or code snippet that calls
|
||||
;; 'gexp->derivation').
|
||||
(%graft? #f))
|
||||
(let* ((opts (parse-command-line args %options
|
||||
(list %default-options)
|
||||
#:build-options? #f))
|
||||
|
@ -513,13 +518,12 @@ (define (package-list opts)
|
|||
(systems systems)))
|
||||
(packages (package-list opts))
|
||||
(items (with-store store
|
||||
(parameterize ((%graft? #f))
|
||||
(concatenate
|
||||
(run-with-store store
|
||||
(mapm %store-monad
|
||||
(lambda (system)
|
||||
(package-outputs packages system))
|
||||
systems)))))))
|
||||
(concatenate
|
||||
(run-with-store store
|
||||
(mapm %store-monad
|
||||
(lambda (system)
|
||||
(package-outputs packages system))
|
||||
systems))))))
|
||||
(for-each (lambda (server)
|
||||
(report-server-coverage server items)
|
||||
(match (assoc-ref opts 'coverage)
|
||||
|
|
Loading…
Reference in a new issue