summaryrefslogtreecommitdiff
path: root/guix/scripts/package.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2017-06-07 11:15:29 +0200
committerLudovic Courtès <ludo@gnu.org>2017-06-21 11:05:53 +0200
commit81e3485c0d012e29d4e551107fc31c0da89b0006 (patch)
treef18e4860750743481ad5499cd79ab6923992c708 /guix/scripts/package.scm
parentb3a00885c0a420692ccc4c227252bb44619399d5 (diff)
guix package: Always upgrade packages that have propagated inputs.
* guix/scripts/package.scm (transaction-upgrade-entry): Always upgrade packages that have propagated inputs.
Diffstat (limited to 'guix/scripts/package.scm')
-rw-r--r--guix/scripts/package.scm5
1 files changed, 4 insertions, 1 deletions
diff --git a/guix/scripts/package.scm b/guix/scripts/package.scm
index a6bfb03ae4..5e19df5e43 100644
--- a/guix/scripts/package.scm
+++ b/guix/scripts/package.scm
@@ -312,7 +312,10 @@ of relevance scores."
((=)
(let ((candidate-path (derivation->output-path
(package-derivation (%store) pkg))))
- (if (string=? path candidate-path)
+ ;; XXX: When there are propagated inputs, assume we need to
+ ;; upgrade the whole entry.
+ (if (and (string=? path candidate-path)
+ (null? (package-propagated-inputs pkg)))
transaction
(manifest-transaction-install-entry
(package->manifest-entry pkg output)