summaryrefslogtreecommitdiff
path: root/guix/derivations.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-11-13 11:22:07 +0100
committerLudovic Courtès <ludo@gnu.org>2013-11-13 11:22:07 +0100
commita716e36de915a275e4eab42b73cf0a2affc4aa33 (patch)
treeaffdccec604ccf00846b7e48f85fcf1861672b87 /guix/derivations.scm
parentf80594cc41d7ad491f14a73d594228bacafdc871 (diff)
derivations: Allow 'map-derivations' to replace sources.
* guix/derivations.scm (map-derivation)[input->output-paths]: Allow non-derivation inputs. Allow replacements to be store files. Replace in SOURCES too. * tests/derivations.scm ("map-derivation, sources"): New test.
Diffstat (limited to 'guix/derivations.scm')
-rw-r--r--guix/derivations.scm26
1 files changed, 19 insertions, 7 deletions
diff --git a/guix/derivations.scm b/guix/derivations.scm
index b33e835556..63c1ba4f2b 100644
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@@ -674,17 +674,21 @@ recursively."
(define input->output-paths
(match-lambda
- ((drv)
+ (((? derivation? drv))
(list (derivation->output-path drv)))
- ((drv sub-drvs ...)
+ (((? derivation? drv) sub-drvs ...)
(map (cut derivation->output-path drv <>)
- sub-drvs))))
+ sub-drvs))
+ ((file)
+ (list file))))
(let ((mapping (fold (lambda (pair result)
(match pair
- ((orig . replacement)
+ (((? derivation? orig) . replacement)
(vhash-cons (derivation-file-name orig)
- replacement result))))
+ replacement result))
+ ((file . replacement)
+ (vhash-cons file replacement result))))
vlist-null
mapping)))
(define rewritten-input
@@ -695,8 +699,10 @@ recursively."
(match input
(($ <derivation-input> path (sub-drvs ...))
(match (vhash-assoc path mapping)
- ((_ . replacement)
+ ((_ . (? derivation? replacement))
(cons replacement sub-drvs))
+ ((_ . replacement)
+ (list replacement))
(#f
(let* ((drv (loop (call-with-input-file path read-derivation))))
(cons drv sub-drvs)))))))))
@@ -711,7 +717,13 @@ recursively."
;; Sources typically refer to the output directories of the
;; original inputs, INITIAL. Rewrite them by substituting
;; REPLACEMENTS.
- (sources (map (cut substitute-file <> initial replacements)
+ (sources (map (lambda (source)
+ (match (vhash-assoc source mapping)
+ ((_ . replacement)
+ replacement)
+ (#f
+ (substitute-file source
+ initial replacements))))
(derivation-sources drv)))
;; Now augment the lists of initials and replacements.