diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-02-08 18:52:00 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-02-08 19:00:39 +0100 |
| commit | 46b23e1a436d209d6b96daee4bc398f102267502 (patch) | |
| tree | 99903e4f5167d515c017a5002d014b5aa0f07b26 /guix/ui.scm | |
| parent | 77ee4a96f4a128d2a139a1908f7b8c5d0d97d9a8 (diff) | |
profiles: Distinguish downgrades from upgrades.
Fixes <http://bugs.gnu.org/19764>.
* guix/profiles.scm (manifest-transaction-effects): Return downgraded
packages as a fourth value.
* guix/ui.scm (show-manifest-transaction): Adjust accordingly.
* tests/profiles.scm ("manifest-transaction-effects and downgrades"):
New test.
Diffstat (limited to 'guix/ui.scm')
| -rw-r--r-- | guix/ui.scm | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/guix/ui.scm b/guix/ui.scm index 696d0df964..382b5b1e0d 100644 --- a/guix/ui.scm +++ b/guix/ui.scm @@ -416,7 +416,7 @@ replacement if PORT is not Unicode-capable." (package-output store item output) item))) - (let-values (((remove install upgrade) + (let-values (((remove install upgrade downgrade) (manifest-transaction-effects manifest transaction))) (match remove ((($ <manifest-entry> name version output item) ..1) @@ -434,6 +434,24 @@ replacement if PORT is not Unicode-capable." len) remove)))) (_ #f)) + (match downgrade + (((($ <manifest-entry> name old-version) + . ($ <manifest-entry> _ new-version output item)) ..1) + (let ((len (length name)) + (downgrade (map upgrade-string + name old-version new-version output item))) + (if dry-run? + (format (current-error-port) + (N_ "The following package would be downgraded:~%~{~a~%~}~%" + "The following packages would be downgraded:~%~{~a~%~}~%" + len) + downgrade) + (format (current-error-port) + (N_ "The following package will be downgraded:~%~{~a~%~}~%" + "The following packages will be downgraded:~%~{~a~%~}~%" + len) + downgrade)))) + (_ #f)) (match upgrade (((($ <manifest-entry> name old-version) . ($ <manifest-entry> _ new-version output item)) ..1) |