gexp: Add support for 'origin?' objects in 'ungexp' forms.

* guix/gexp.scm (lower-inputs, gexp-inputs, gexp->sexp,
  canonicalize-reference): Add 'origin?' case.
* guix/monads.scm (origin->derivation): New procedure.
* tests/gexp.scm ("one input origin"): New test.
This commit is contained in:
Ludovic Courtès 2014-05-01 16:15:00 +02:00
parent 696893801c
commit 79c0c8cdf7
3 changed files with 28 additions and 2 deletions

View file

@ -56,6 +56,7 @@
text-file
text-file*
package-file
origin->derivation
package->derivation
built-derivations)
#:replace (imported-modules
@ -395,6 +396,9 @@ input list as a monadic value."
(define package->derivation
(store-lift package-derivation))
(define origin->derivation
(store-lift package-source-derivation))
(define imported-modules
(store-lift (@ (guix derivations) imported-modules)))