diff options
| author | Ludovic Courtès | 2014-05-01 16:15:00 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2014-05-01 22:31:36 +0200 |
| commit | 79c0c8cdf74cc0587187aa8f25af29b21fe91ba2 (patch) | |
| tree | cc9f5e66672c7e1b35f0a6804e1420277549813b /guix/monads.scm | |
| parent | 696893801c9d4b83adc9a15ce60103142e7c1a79 (diff) | |
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.
Diffstat (limited to 'guix/monads.scm')
| -rw-r--r-- | guix/monads.scm | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/guix/monads.scm b/guix/monads.scm index 0e99cb37f..809aba59b 100644 --- a/guix/monads.scm +++ b/guix/monads.scm @@ -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))) |