aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-01-29 13:04:48 +0100
committerLudovic Courtès <ludo@gnu.org>2014-01-29 13:05:42 +0100
commit413d5351aa3dd3e122f807cb944405c156d254e3 (patch)
treec2613f06da12469c7fba643d202d97896839a129
parentb0dd47a8d0c39dabf6d23aa24bf6a4ae650bd006 (diff)
downloadguix-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.scm14
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))