ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-25 05:48:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

packages: Add 'set-grafting' procedure.

Browse source 
* guix/packages.scm (set-grafting): New procedure.
This commit is contained in:
Ludovic Courtès 2015-02-13 23:07:11 +01:00
parent 2bba832f88
commit b8bedf6051
1 changed files with 7 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
guix/packages.scm
View file

@ -114,6 +114,7 @@ (define-module (guix packages)
default-guile
set-guile-for-build
set-grafting
package-file
package->derivation
package->cross-derivation
@ -906,6 +907,12 @@ (define (set-guile-for-build guile)
(let ((guile (package-derivation store guile)))
(values (%guile-for-build guile) store))))
(define (set-grafting enable?)
"This monadic procedure enables grafting when ENABLE? is true, and disables
it otherwise. It returns the previous setting."
(lambda (store)
(values (%graft? enable?) store)))
(define* (package-file package
#:optional file
#:key