aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/scripts/refresh.scm7
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)))))))))