diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-10-14 19:04:08 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-10-17 23:23:20 +0200 |
| commit | 3d7d17b31866a99cd86566e9939a3298af8623c7 (patch) | |
| tree | 8ca078198f3e7bf0ce68c955ccb3fe4d0bde38e1 | |
| parent | 969df974871ae1882c25df8d9b09bced2e62a30b (diff) | |
| download | guix-3d7d17b31866a99cd86566e9939a3298af8623c7.tar.gz | |
derivations: Add #:system parameter to 'graft-derivation'.
* guix/derivations.scm (graft-derivation): Add #:system parameter.
| -rw-r--r-- | guix/derivations.scm | 4 |
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)) |