nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

derivations: Add #:system parameter to 'graft-derivation'. 

* guix/derivations.scm (graft-derivation): Add #:system parameter.
This commit is contained in:
Ludovic Courtès 2014-10-14 19:04:08 +02:00
parent 969df97487
commit 3d7d17b318
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
guix/derivations.scm
View File

@ -984,7 +984,8 @@ they can refer to each other."
(default "out"))) (default "out")))
(define* (graft-derivation store name drv grafts (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 "Return a derivation called NAME, based on DRV but with all the GRAFTS
applied." applied."
;; XXX: Someday rewrite using gexps. ;; XXX: Someday rewrite using gexps.
@ -1035,6 +1036,7 @@ applied."
(let ((sources (zip sources source-outputs)) (let ((sources (zip sources source-outputs))
(targets (zip targets target-outputs))) (targets (zip targets target-outputs)))
(build-expression->derivation store name build (build-expression->derivation store name build
#:system system
#:guile-for-build guile #:guile-for-build guile
#:modules '((guix build graft) #:modules '((guix build graft)
(guix build utils)) (guix build utils))