kreyren/guix-kreyren
1
0
Fork 0
Code Issues 1 Pull Requests 1 Releases Activity

packages: Move grafting parameter to (guix derivations).

Browse Source 
* guix/packages.scm (%graft?, set-grafting): Move to...
* guix/derivations.scm: ... here.
This commit is contained in:
Ludovic Courtès 2015-03-17 21:46:00 +01:00
parent bcb1328763
commit 9d8100f4c7
2 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
guix/derivations.scm
View File

@ -97,6 +97,9 @@
build-derivations
built-derivations
%graft?
set-grafting
build-expression->derivation)
;; Re-export it from here for backward compatibility.
@ -1287,3 +1290,16 @@ ALLOWED-REFERENCES, and LOCAL-BUILD?."
(define built-derivations
(store-lift build-derivations))
;; The following might feel more at home in (guix packages) but since (guix
;; gexp), which is a lower level, needs them, we put them here.
(define %graft?
;; Whether to honor package grafts by default.
(make-parameter #t))
(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)))

13
guix/packages.scm
View File

@ -103,7 +103,6 @@
&package-cross-build-system-error
package-cross-build-system-error?
%graft?
package->bag
bag->derivation
bag-transitive-inputs
@ -112,9 +111,7 @@
bag-transitive-target-inputs
default-guile
set-guile-for-build
set-grafting
package-file
package->derivation
package->cross-derivation
@ -678,10 +675,6 @@ information in exceptions."
(package package)
(input x)))))))
(define %graft?
;; Whether to honor package grafts by default.
(make-parameter #t))
(define* (package->bag package #:optional
(system (%current-system))
(target (%current-target-system))
@ -918,12 +911,6 @@ code of derivations to GUILE, a package object."
(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