diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-11-30 16:26:08 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2016-11-30 17:35:21 +0100 |
| commit | 4e6230ec00de1090e2780130f7de3a799c626e9b (patch) | |
| tree | c7f9bfee8f47292fd8d56060904eb196e5eea866 | |
| parent | 7632f7bc214b798ff3e154c2fac9a856aa9494e3 (diff) | |
| download | guix-4e6230ec00de1090e2780130f7de3a799c626e9b.tar guix-4e6230ec00de1090e2780130f7de3a799c626e9b.tar.gz | |
refresh: Honor the selected updaters when '-u' isn't given.
Fixes a regression introduced in
e9c72306fdfd6a60158918850cb25d0ff3837d16.
* guix/scripts/refresh.scm (check-for-package-update): Add 'updaters'
parameter and honor it.
(guix-refresh): Pass UPDATERS to 'check-for-package-update'.
| -rw-r--r-- | guix/scripts/refresh.scm | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/guix/scripts/refresh.scm b/guix/scripts/refresh.scm index ed28ed5fcb..91a31a280b 100644 --- a/guix/scripts/refresh.scm +++ b/guix/scripts/refresh.scm @@ -261,10 +261,10 @@ downloaded and authenticated; not updating~%") (when warn? (warn-no-updater package)))) -(define* (check-for-package-update package #:key warn?) +(define* (check-for-package-update package updaters #:key warn?) "Check whether an update is available for PACKAGE and print a message. When WARN? is true and no updater exists for PACKAGE, print a warning." - (match (package-latest-release package %updaters) + (match (package-latest-release package updaters) ((? upstream-source? source) (when (version>? (upstream-source-version source) (package-version package)) @@ -438,7 +438,8 @@ update would trigger a complete rebuild." (with-monad %store-monad (return #t)))) (else - (for-each (cut check-for-package-update <> #:warn? warn?) + (for-each (cut check-for-package-update <> updaters + #:warn? warn?) packages) (with-monad %store-monad (return #t))))))))) |