summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-02-22 19:02:16 +0100
committerLudovic Courtès <ludo@gnu.org>2016-02-22 22:11:37 +0100
commitb0fef4d660ca86fdda5749356fbc29a456e7a326 (patch)
tree0073fe0d3d7f141ef699dce571c0d1fe97dd80d3 /guix
parent7adf9b8469f3f043e61d1c9614aea8abb63fb727 (diff)
grafts: 'name' parameter of 'graft-derivation' is now optional.
* guix/grafts.scm (graft-derivation): Name 'name' a keyword parameter. * guix/packages.scm (package-derivation, package-cross-derivation): Adjust accordingly. * tests/grafts.scm ("graft-derivation"): Likewise. * tests/packages.scm ("package-derivation, indirect grafts"): Likewise.
Diffstat (limited to 'guix')
-rw-r--r--guix/grafts.scm6
-rw-r--r--guix/packages.scm4
2 files changed, 6 insertions, 4 deletions
diff --git a/guix/grafts.scm b/guix/grafts.scm
index 6b78a784e7..5074809c43 100644
--- a/guix/grafts.scm
+++ b/guix/grafts.scm
@@ -44,8 +44,10 @@
(replacement-output graft-replacement-output ;string | #f
(default "out")))
-(define* (graft-derivation store name drv grafts
- #:key (guile (%guile-for-build))
+(define* (graft-derivation store drv grafts
+ #:key
+ (name (derivation-name drv))
+ (guile (%guile-for-build))
(system (%current-system)))
"Return a derivation called NAME, based on DRV but with all the GRAFTS
applied."
diff --git a/guix/packages.scm b/guix/packages.scm
index 93bfbc4683..f6afaeb510 100644
--- a/guix/packages.scm
+++ b/guix/packages.scm
@@ -985,7 +985,7 @@ This is an internal procedure."
(grafts
(let ((guile (package-derivation store (default-guile)
system #:graft? #f)))
- (graft-derivation store (bag-name bag) drv grafts
+ (graft-derivation store drv grafts
#:system system
#:guile guile))))
drv))))
@@ -1003,7 +1003,7 @@ system identifying string)."
(()
drv)
(grafts
- (graft-derivation store (bag-name bag) drv grafts
+ (graft-derivation store drv grafts
#:system system
#:guile
(package-derivation store (default-guile)