[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
01/04: guix package: '--upgrade' no longer reverses package order.
From: |
Ludovic Courtès |
Subject: |
01/04: guix package: '--upgrade' no longer reverses package order. |
Date: |
Sat, 7 Oct 2017 11:08:38 -0400 (EDT) |
civodul pushed a commit to branch master
in repository guix.
commit eca16a3d1d9e6b2c064e0105c1015258bf2755f2
Author: Ludovic Courtès <address@hidden>
Date: Sat Oct 7 15:44:23 2017 +0200
guix package: '--upgrade' no longer reverses package order.
Reported by Oleg Pykhalov <address@hidden>
at <https://lists.gnu.org/archive/html/help-guix/2017-10/msg00000.html>.
* guix/scripts/package.scm (options->installable)[upgraded]: Use
'fold-right' instead of 'fold'.
---
guix/scripts/package.scm | 12 ++++++------
1 file changed, 6 insertions(+), 6 deletions(-)
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index 4adc705..0e36501 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -604,12 +604,12 @@ and upgrades."
(options->upgrade-predicate opts))
(define upgraded
- (fold (lambda (entry transaction)
- (if (upgrade? (manifest-entry-name entry))
- (transaction-upgrade-entry entry transaction)
- transaction))
- transaction
- (manifest-entries manifest)))
+ (fold-right (lambda (entry transaction)
+ (if (upgrade? (manifest-entry-name entry))
+ (transaction-upgrade-entry entry transaction)
+ transaction))
+ transaction
+ (manifest-entries manifest)))
(define to-install
(filter-map (match-lambda