me/guix
Archived
1
0
Fork 0
Code Activity

upstream: Allow downgrades.

Browse source 
Previously, 'guix refresh -u guile=3.0.0' would do nothing.  With this
change, it actually downgrades 'guile'.

This is a followup to 8aeccc6240.

* guix/upstream.scm (package-update): Ignore 'version>?' check
when #:version is passed.  Warn about downgrades.
This commit is contained in:
Ludovic Courtès 2022-12-27 22:53:10 +01:00
parent c6ac47afdf
commit a330bfdf5b
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 14 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
guix/upstream.scm
View file

@ -501,11 +501,22 @@ SOURCE, an <upstream-source>."
changes for PACKAGE; return #f (three values) when PACKAGE is up-to-date; changes for PACKAGE; return #f (three values) when PACKAGE is up-to-date;
raise an error when the updater could not determine available releases. raise an error when the updater could not determine available releases.
KEY-DOWNLOAD specifies a download policy for missing OpenPGP keys; allowed KEY-DOWNLOAD specifies a download policy for missing OpenPGP keys; allowed
values: 'always', 'never', and 'interactive' (default)." values: 'always', 'never', and 'interactive' (default).
When VERSION is specified, update PACKAGE to that version, even if that is a
downgrade."
(match (package-latest-release package updaters #:version version) (match (package-latest-release package updaters #:version version)
((? upstream-source? source) ((? upstream-source? source)
(if (version>? (upstream-source-version source) (if (or (version>? (upstream-source-version source)
(package-version package)) (package-version package))
(and version
(begin
(warning (package-location package)
(G_ "downgrading '~a' from ~a to ~a~%")
(package-name package)
(package-version package)
(upstream-source-version source))
#t)))
(let ((method (match (package-source package) (let ((method (match (package-source package)
((? origin? origin) ((? origin? origin)
(origin-method origin)) (origin-method origin))