[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/04: packages: 'package-mapping' maps replacement.
|
From: |
Ludovic Courtès |
|
Subject: |
02/04: packages: 'package-mapping' maps replacement. |
|
Date: |
Fri, 19 Jan 2018 18:45:49 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit 20fe7271051403ee431c2fd72ff76d9c44acdb6c
Author: Ludovic Courtès <address@hidden>
Date: Fri Jan 19 15:08:25 2018 +0100
packages: 'package-mapping' maps replacement.
* guix/packages.scm (package-mapping): Apply PROC to 'replacement' as well.
---
guix/packages.scm | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/guix/packages.scm b/guix/packages.scm
index c6d3b81..7d884aa 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
<address@hidden>
+;;; Copyright © 2012, 2013, 2014, 2015, 2016, 2017, 2018 Ludovic Courtès
<address@hidden>
;;; Copyright © 2014, 2015, 2017 Mark H Weaver <address@hidden>
;;; Copyright © 2015 Eric Bavier <address@hidden>
;;; Copyright © 2016 Alex Kost <address@hidden>
@@ -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)