From 969df974871ae1882c25df8d9b09bced2e62a30b Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Tue, 14 Oct 2014 14:47:49 +0200 Subject: derivations: Introduce 'graft' record type. * guix/derivations.scm (): New record type. (graft-derivation): Rename 'replacements' to 'grafts', and expect it to be a list of records. Adjust accordingly. * tests/derivations.scm ("graft-derivation"): Use 'graft' instead of pairs in argument to 'graft-derivation'. --- tests/derivations.scm | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) (limited to 'tests') diff --git a/tests/derivations.scm b/tests/derivations.scm index 48d12990e6..e774fed4c3 100644 --- a/tests/derivations.scm +++ b/tests/derivations.scm @@ -831,8 +831,12 @@ Deriver: ~a~%" (lambda (port) (display "fake mkdir" port))))) (graft (graft-derivation %store "graft" orig - `(((,%bash) . (,one)) - ((,%mkdir) . (,two)))))) + (list (graft + (origin %bash) + (replacement one)) + (graft + (origin %mkdir) + (replacement two)))))) (and (build-derivations %store (list graft)) (let ((two (derivation->output-path two)) (graft (derivation->output-path graft))) -- cgit v1.2.3