mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-02-07 03:20:04 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

weather: Parameterize '%graft?' upfront.

Browse source 
* guix/scripts/weather.scm (guix-weather): Parameterize %GRAFT? upfront.
This commit is contained in:
Ludovic Courtès 2020-03-05 16:09:52 +01:00
parent f42f39ad68
commit e7671685a8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 12 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
guix/scripts/weather.scm
View file

@ -500,7 +500,12 @@ SERVER. Display information for packages with at least THRESHOLD dependents."
(if file (load-manifest file) '()))))) (if file (load-manifest file) '())))))
(with-error-handling (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 (let* ((opts (parse-command-line args %options
(list %default-options) (list %default-options)
#:build-options? #f)) #:build-options? #f))
@ -513,13 +518,12 @@ SERVER. Display information for packages with at least THRESHOLD dependents."
(systems systems))) (systems systems)))
(packages (package-list opts)) (packages (package-list opts))
(items (with-store store (items (with-store store
(parameterize ((%graft? #f))
(concatenate (concatenate
(run-with-store store (run-with-store store
(mapm %store-monad (mapm %store-monad
(lambda (system) (lambda (system)
(package-outputs packages system)) (package-outputs packages system))
systems))))))) systems))))))
(for-each (lambda (server) (for-each (lambda (server)
(report-server-coverage server items) (report-server-coverage server items)
(match (assoc-ref opts 'coverage) (match (assoc-ref opts 'coverage)