me/guix
Archived
1
0
Fork 0
Code Activity

packages: Add 'bag-direct-inputs'.

Browse source 
* guix/packages.scm (bag-direct-inputs): New procedure.
  (bag-transitive-inputs): Use it.
This commit is contained in:
Ludovic Courtès 2015-04-11 12:29:10 +02:00
parent 8550894bfe
commit cceab87536
1 changed files with 8 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
guix/packages.scm
View file

@ -107,6 +107,7 @@
package->bag package->bag
bag->derivation bag->derivation
bag-direct-inputs
bag-transitive-inputs bag-transitive-inputs
bag-transitive-host-inputs bag-transitive-host-inputs
bag-transitive-build-inputs bag-transitive-build-inputs
@ -580,11 +581,15 @@ supported by its dependencies."
(package-supported-systems package) (package-supported-systems package)
(package-direct-inputs package))) (package-direct-inputs package)))
(define (bag-direct-inputs bag)
"Same as 'package-direct-inputs', but applied to a bag."
(append (bag-build-inputs bag)
(bag-host-inputs bag)
(bag-target-inputs bag)))
(define (bag-transitive-inputs bag) (define (bag-transitive-inputs bag)
"Same as 'package-transitive-inputs', but applied to a bag." "Same as 'package-transitive-inputs', but applied to a bag."
(transitive-inputs (append (bag-build-inputs bag) (transitive-inputs (bag-direct-inputs bag)))
(bag-host-inputs bag)
(bag-target-inputs bag))))
(define (bag-transitive-build-inputs bag) (define (bag-transitive-build-inputs bag)
"Same as 'package-transitive-native-inputs', but applied to a bag." "Same as 'package-transitive-native-inputs', but applied to a bag."