summaryrefslogtreecommitdiff
path: root/guix/import
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-06-08 17:59:45 +0200
committerLudovic Courtès <ludo@gnu.org>2016-06-08 19:07:58 +0200
commitdc794a723809f0f28e49e4c32e8974b5b9a98ff0 (patch)
tree54f4863bec165af1eac176aa4a4a46f5a44d4fc1 /guix/import
parentae768308575051050f71dabdb15d0b71223f1c2a (diff)
gnu-maintenance: Replace 'find-packages' with 'find-package' (singular).
Fixes <http://bugs.gnu.org/23718>. Reported by Efraim Flashner <efraim@flashner.co.il>. * guix/gnu-maintenance.scm (find-packages): Remove. (find-package): New procedure. * guix/import/gnu.scm (gnu->guix-package): Use 'find-package' instead of 'find-packages' and adjust accordingly.
Diffstat (limited to 'guix/import')
-rw-r--r--guix/import/gnu.scm10
1 files changed, 5 insertions, 5 deletions
diff --git a/guix/import/gnu.scm b/guix/import/gnu.scm
index 2cfb46beb9..bbb17047f0 100644
--- a/guix/import/gnu.scm
+++ b/guix/import/gnu.scm
@@ -111,13 +111,13 @@ details.)"
(match (latest-release name)
((? upstream-source? release)
(let ((version (upstream-source-version release)))
- (match (find-packages (regexp-quote name))
- ((info . _)
- (gnu-package->sexp info release #:key-download key-download))
- (()
+ (match (find-package name)
+ (#f
(raise (condition
(&message
- (message "couldn't find meta-data for GNU package"))))))))
+ (message "couldn't find meta-data for GNU package")))))
+ (info
+ (gnu-package->sexp info release #:key-download key-download)))))
(_
(raise (condition
(&message