From 501d76475185127388c7776f89fb6526db4f1336 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Tue, 11 Nov 2014 14:59:38 +0100 Subject: gnu-maintenance: Introduce data type. * guix/gnu-maintenance.scm (): New record type. (release-file): Rename to... (release-file?): ... this. Return a Boolean. (tarball->version, coalesce-releases): New procedures. (releases): Call 'coalesce-releases' on RESULT. Return objects instead of pairs. (latest-release): Likewise. (package-update-path): Adjust accordingly. * gnu/packages.scm (check-package-freshness): Adjust accordingly. --- gnu/packages.scm | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) (limited to 'gnu') diff --git a/gnu/packages.scm b/gnu/packages.scm index 281d0d297d..c9efd0d691 100644 --- a/gnu/packages.scm +++ b/gnu/packages.scm @@ -348,13 +348,16 @@ it." #:ftp-open ftp-open* #:ftp-close (const #f)) (_ "looking for the latest release of GNU ~a...") name) - ((latest-version . _) - (when (version>? latest-version full-name) - (format (current-error-port) - (_ "~a: note: using ~a \ + ((? gnu-release? release) + (let ((latest-version + (string-append (gnu-release-package release) "-" + (gnu-release-version release)))) + (when (version>? latest-version full-name) + (format (current-error-port) + (_ "~a: note: using ~a \ but ~a is available upstream~%") - (location->string (package-location package)) - full-name latest-version))) + (location->string (package-location package)) + full-name latest-version)))) (_ #t))))) (lambda (key . args) ;; Silently ignore networking errors rather than preventing -- cgit v1.2.3