diff options
| author | Eric Bavier <bavier@member.fsf.org> | 2014-07-15 00:10:10 -0500 |
|---|---|---|
| committer | Eric Bavier <bavier@member.fsf.org> | 2014-07-15 00:10:10 -0500 |
| commit | 49d91de7635adfd269d0108def2df70e2c1832d6 (patch) | |
| tree | 824683e6d1ec774c53fde8d7ec7e02fe6a474fad /guix/scripts/refresh.scm | |
| parent | 5af6de3e67cd2f90773d9ca36ecd19a1177063fd (diff) | |
| download | guix-patches-49d91de7635adfd269d0108def2df70e2c1832d6.tar guix-patches-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.
Diffstat (limited to 'guix/scripts/refresh.scm')
| -rw-r--r-- | guix/scripts/refresh.scm | 4 |
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)) |