summary refs log tree commit diff
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
parentb3a00885c0a420692ccc4c227252bb44619399d5 (diff)
downloadguix-81e3485c0d012e29d4e551107fc31c0da89b0006.tar.gz
guix package: Always upgrade packages that have propagated inputs.
* guix/scripts/package.scm (transaction-upgrade-entry): Always upgrade
packages that have propagated inputs.
-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)