03/08: refresh: Honor the selected updaters when '-u' isn't given.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 4e6230ec00de1090e2780130f7de3a799c626e9b
Author: Ludovic Courtès <address@hidden>
Date:   Wed Nov 30 16:26:08 2016 +0100

    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'.
---
 guix/scripts/refresh.scm |    7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/guix/scripts/refresh.scm b/guix/scripts/refresh.scm
index ed28ed5..91a31a2 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)))))))))