mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-20 23:28:29 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

transformations: '--with-latest' correctly handles already-latest case.

Browse source 
Previously, '--with-latest' would wrongfully print:

  warning: could not determine latest upstream release of 'xyz'

when 'xyz' is already the latest version.  This fixes that.

* guix/transformations.scm (transform-package-latest): Use
'package-latest-release' instead of 'package-latest-release*'.
This commit is contained in:
Ludovic Courtès 2021-06-08 22:44:53 +02:00
parent ac51eb1125
commit 7ccf416dd0
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
guix/transformations.scm
View file

@ -25,7 +25,7 @@ (define-module (guix transformations)
#:autoload (guix download) (download-to-store) #:autoload (guix download) (download-to-store)
#:autoload (guix git-download) (git-reference? git-reference-url) #:autoload (guix git-download) (git-reference? git-reference-url)
#:autoload (guix git) (git-checkout git-checkout? git-checkout-url) #:autoload (guix git) (git-checkout git-checkout? git-checkout-url)
#:autoload (guix upstream) (package-latest-release* #:autoload (guix upstream) (package-latest-release
upstream-source-version upstream-source-version
upstream-source-signature-urls) upstream-source-signature-urls)
#:use-module (guix utils) #:use-module (guix utils)
@ -518,7 +518,7 @@ (define (transform-package-latest specs)
"Return a procedure that rewrites package graphs such that those in SPECS "Return a procedure that rewrites package graphs such that those in SPECS
are replaced by their latest upstream version." are replaced by their latest upstream version."
(define (package-with-latest-upstream p) (define (package-with-latest-upstream p)
(let ((source (package-latest-release* p))) (let ((source (package-latest-release p)))
(cond ((not source) (cond ((not source)
(warning (warning
(G_ "could not determine latest upstream release of '~a'~%") (G_ "could not determine latest upstream release of '~a'~%")