summaryrefslogtreecommitdiff
path: root/guix/derivations.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-10-14 19:04:08 +0200
committerLudovic Courtès <ludo@gnu.org>2014-10-17 23:23:20 +0200
commit3d7d17b31866a99cd86566e9939a3298af8623c7 (patch)
tree8ca078198f3e7bf0ce68c955ccb3fe4d0bde38e1 /guix/derivations.scm
parent969df974871ae1882c25df8d9b09bced2e62a30b (diff)
derivations: Add #:system parameter to 'graft-derivation'.
* guix/derivations.scm (graft-derivation): Add #:system parameter.
Diffstat (limited to 'guix/derivations.scm')
-rw-r--r--guix/derivations.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/guix/derivations.scm b/guix/derivations.scm
index 15faf59616..211ecc6f96 100644
--- a/guix/derivations.scm
+++ b/guix/derivations.scm
@@ -984,7 +984,8 @@ they can refer to each other."
(default "out")))
(define* (graft-derivation store name drv grafts
- #:key (guile (%guile-for-build)))
+ #:key (guile (%guile-for-build))
+ (system (%current-system)))
"Return a derivation called NAME, based on DRV but with all the GRAFTS
applied."
;; XXX: Someday rewrite using gexps.
@@ -1035,6 +1036,7 @@ applied."
(let ((sources (zip sources source-outputs))
(targets (zip targets target-outputs)))
(build-expression->derivation store name build
+ #:system system
#:guile-for-build guile
#:modules '((guix build graft)
(guix build utils))