diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-11-11 14:59:38 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-11-11 15:31:35 +0100 |
| commit | 501d76475185127388c7776f89fb6526db4f1336 (patch) | |
| tree | 4a3c1cd37e18a98c4acf495fcab52d08bcc9fc6f /gnu | |
| parent | 342b5204aad4c591fd4640857441fee955a7bc86 (diff) | |
gnu-maintenance: Introduce <gnu-release> data type.
* guix/gnu-maintenance.scm (<gnu-release>): 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 <gnu-release>
objects instead of pairs.
(latest-release): Likewise.
(package-update-path): Adjust accordingly.
* gnu/packages.scm (check-package-freshness): Adjust accordingly.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages.scm | 15 |
1 files changed, 9 insertions, 6 deletions
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 |