diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2018-01-19 15:08:25 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2018-01-20 00:45:29 +0100 |
| commit | 20fe7271051403ee431c2fd72ff76d9c44acdb6c (patch) | |
| tree | fb2e464091f32ca8ecb421b4d7ae9ec210fee8b4 | |
| parent | 523790d11d4d4d786e7b2ad19d3333e9fffb016d (diff) | |
| download | guix-20fe7271051403ee431c2fd72ff76d9c44acdb6c.tar.gz | |
packages: 'package-mapping' maps replacement.
* guix/packages.scm (package-mapping): Apply PROC to 'replacement' as well.
| -rw-r--r-- | guix/packages.scm | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/guix/packages.scm b/guix/packages.scm index c6d3b811f2..7d884aa366 100644 --- a/guix/packages.scm +++ b/guix/packages.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2014, 2015, 2017 Mark H Weaver <mhw@netris.org> ;;; Copyright © 2015 Eric Bavier <bavier@member.fsf.org> ;;; Copyright © 2016 Alex Kost <alezost@gmail.com> @@ -785,7 +785,8 @@ when CUT? returns true for a given package." (location (package-location p)) (inputs (map rewrite (package-inputs p))) (native-inputs (map rewrite (package-native-inputs p))) - (propagated-inputs (map rewrite (package-propagated-inputs p))))))) + (propagated-inputs (map rewrite (package-propagated-inputs p))) + (replacement (and=> (package-replacement p) proc)))))) replace) |