summary refs log tree commit diff
diff options
context:
space:
mode:
authorEric Bavier <bavier@member.fsf.org>2014-07-15 00:10:10 -0500
committerEric Bavier <bavier@member.fsf.org>2014-07-15 00:10:10 -0500
commit49d91de7635adfd269d0108def2df70e2c1832d6 (patch)
tree824683e6d1ec774c53fde8d7ec7e02fe6a474fad
parent5af6de3e67cd2f90773d9ca36ecd19a1177063fd (diff)
downloadguix-49d91de7635adfd269d0108def2df70e2c1832d6.tar.gz
guix: refresh: Correctly identify invalid package names.
* guix/scripts/refresh.scm (guix-refresh): Check for null list
  returned by find-packages-by-name rather than #f.
-rw-r--r--guix/scripts/refresh.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/scripts/refresh.scm b/guix/scripts/refresh.scm
index c65a7d0cfb..af7beb748b 100644
--- a/guix/scripts/refresh.scm
+++ b/guix/scripts/refresh.scm
@@ -201,8 +201,8 @@ update would trigger a complete rebuild."
                   (filter-map (match-lambda
                                (('argument . value)
                                 (let ((p (find-packages-by-name value)))
-                                  (unless p
-                                    (leave (_ "~a: no package by that name")
+                                  (when (null? p)
+                                    (leave (_ "~a: no package by that name~%")
                                            value))
                                   p))
                                (_ #f))