futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

monads: Add 'imported-modules' and 'compiled-modules'.

Browse Source 
* guix/monads.scm (package-file): Fix typo.
  (imported-modules, compiled-modules): New procedures.
This commit is contained in:
Ludovic Courtès 2014-01-29 13:04:48 +01:00
parent b0dd47a8d0
commit 413d5351aa
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
guix/monads.scm
View File

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; 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. ;;; This file is part of GNU Guix.
;;; ;;;
@ -57,7 +57,9 @@
package->derivation package->derivation
built-derivations built-derivations
derivation-expression derivation-expression
lower-inputs)) lower-inputs)
#:replace (imported-modules
compiled-modules))
;;; Commentary: ;;; Commentary:
;;; ;;;
@ -310,7 +312,7 @@ containing TEXT."
(define* (package-file package (define* (package-file package
#:optional file #:optional file
#:key (system (%current-system)) (output "out")) #: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. When FILE is omitted, return the name of the
OUTPUT directory of PACKAGE." OUTPUT directory of PACKAGE."
(lambda (store) (lambda (store)
@ -342,6 +344,12 @@ input list as a monadic value."
(define package->derivation (define package->derivation
(store-lift 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 (define built-derivations
(store-lift build-derivations)) (store-lift build-derivations))