diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-01-29 13:04:48 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-01-29 13:05:42 +0100 |
| commit | 413d5351aa3dd3e122f807cb944405c156d254e3 (patch) | |
| tree | c2613f06da12469c7fba643d202d97896839a129 | |
| parent | b0dd47a8d0c39dabf6d23aa24bf6a4ae650bd006 (diff) | |
| download | guix-413d5351aa3dd3e122f807cb944405c156d254e3.tar guix-413d5351aa3dd3e122f807cb944405c156d254e3.tar.gz | |
monads: Add 'imported-modules' and 'compiled-modules'.
* guix/monads.scm (package-file): Fix typo.
(imported-modules, compiled-modules): New procedures.
| -rw-r--r-- | guix/monads.scm | 14 |
1 files changed, 11 insertions, 3 deletions
diff --git a/guix/monads.scm b/guix/monads.scm index 410fdbecb2..ad80a0698d 100644 --- a/guix/monads.scm +++ b/guix/monads.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2013 Ludovic Courtès <ludo@gnu.org> +;;; Copyright © 2013, 2014 Ludovic Courtès <ludo@gnu.org> ;;; ;;; This file is part of GNU Guix. ;;; @@ -57,7 +57,9 @@ package->derivation built-derivations derivation-expression - lower-inputs)) + lower-inputs) + #:replace (imported-modules + compiled-modules)) ;;; Commentary: ;;; @@ -310,7 +312,7 @@ containing TEXT." (define* (package-file package #:optional file #:key (system (%current-system)) (output "out")) - "Return as a monadic value in the absolute file name of FILE within the + "Return as a monadic value the absolute file name of FILE within the OUTPUT directory of PACKAGE. When FILE is omitted, return the name of the OUTPUT directory of PACKAGE." (lambda (store) @@ -342,6 +344,12 @@ input list as a monadic value." (define package->derivation (store-lift package-derivation)) +(define imported-modules + (store-lift (@ (guix derivations) imported-modules))) + +(define compiled-modules + (store-lift (@ (guix derivations) compiled-modules))) + (define built-derivations (store-lift build-derivations)) |