diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-06-07 11:15:29 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2017-06-21 11:05:53 +0200 |
| commit | 81e3485c0d012e29d4e551107fc31c0da89b0006 (patch) | |
| tree | f18e4860750743481ad5499cd79ab6923992c708 | |
| parent | b3a00885c0a420692ccc4c227252bb44619399d5 (diff) | |
| download | gnu-guix-81e3485c0d012e29d4e551107fc31c0da89b0006.tar gnu-guix-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.scm | 5 |
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) |