aboutsummaryrefslogtreecommitdiff
path: root/gnu/packages.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-10-21 18:28:14 +0200
committerLudovic Courtès <ludo@gnu.org>2015-10-21 18:28:14 +0200
commit861be0cc1d1b2fc50be61b4815189e0d3b2075ed (patch)
treef5697f1fef10d70d5d5d8d29201cc2baa9802c01 /gnu/packages.scm
parent1a1553db7e8823b5b82f715058a227b3f703f7d8 (diff)
downloadgnu-guix-861be0cc1d1b2fc50be61b4815189e0d3b2075ed.tar
gnu-guix-861be0cc1d1b2fc50be61b4815189e0d3b2075ed.tar.gz
packages: Update 'check-package-freshness' to use (guix upstream).
This is a followup to 0a7c5a0. Reported by Efraim Flashner <efraim@flashner.co.il>. * gnu/packages.scm (check-package-freshness): Update to the new (guix upstream) interface.
Diffstat (limited to 'gnu/packages.scm')
-rw-r--r--gnu/packages.scm11
1 files changed, 8 insertions, 3 deletions
diff --git a/gnu/packages.scm b/gnu/packages.scm
index 6e46a890bb..fb277389c7 100644
--- a/gnu/packages.scm
+++ b/gnu/packages.scm
@@ -24,6 +24,7 @@
#:use-module (guix utils)
#:use-module ((guix ftp-client) #:select (ftp-open))
#:use-module (guix gnu-maintenance)
+ #:use-module (guix upstream)
#:use-module (ice-9 ftw)
#:use-module (ice-9 vlist)
#:use-module (ice-9 match)
@@ -377,14 +378,18 @@ it."
(when (false-if-exception (gnu-package? package))
(let ((name (package-name package))
(full-name (package-full-name package)))
+ ;; XXX: This could work with non-GNU packages as well. However,
+ ;; GNU's FTP-based updater would be too slow if it weren't memoized,
+ ;; and the generic interface in (guix upstream) doesn't support
+ ;; that.
(match (waiting (latest-release name
#:ftp-open ftp-open*
#:ftp-close (const #f))
(_ "looking for the latest release of GNU ~a...") name)
- ((? gnu-release? release)
+ ((? upstream-source? source)
(let ((latest-version
- (string-append (gnu-release-package release) "-"
- (gnu-release-version release))))
+ (string-append (upstream-source-package source) "-"
+ (upstream-source-version source))))
(when (version>? latest-version full-name)
(format (current-error-port)
(_ "~a: note: using ~a \