summaryrefslogtreecommitdiff
path: root/guix/monads.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-01-12 23:32:34 +0100
committerLudovic Courtès <ludo@gnu.org>2015-01-12 23:33:08 +0100
commitabebac46017f626f25b5c84bdcc1013c3d17632f (patch)
tree6f0663598e17d36413381abf0b0dfc99bafd296e /guix/monads.scm
parent462a3fa36cddeb683df765b2982f76712f6c40f0 (diff)
monads: Remove 'derivation-expression'.
* guix/monads.scm (lower-inputs, derivation-expression): Remove. * tests/monads.scm (derivation-expression, "mlet* + derivation-expression"): Remove.
Diffstat (limited to 'guix/monads.scm')
-rw-r--r--guix/monads.scm20
1 files changed, 0 insertions, 20 deletions
diff --git a/guix/monads.scm b/guix/monads.scm
index 63c9cd8cfd..20fee79602 100644
--- a/guix/monads.scm
+++ b/guix/monads.scm
@@ -389,26 +389,6 @@ cross-compilation target triplet."
(string-append out "/" file)
out))))
-(define (lower-inputs inputs)
- "Turn any package from INPUTS into a derivation; return the corresponding
-input list as a monadic value."
- ;; XXX: This procedure is bound to disappear with 'derivation-expression'.
- (with-monad %store-monad
- (sequence %store-monad
- (map (match-lambda
- ((name (? package? package) sub-drv ...)
- (mlet %store-monad ((drv (package->derivation package)))
- (return `(,name ,drv ,@sub-drv))))
- ((name (? string? file))
- (return `(,name ,file)))
- (tuple
- (return tuple)))
- inputs))))
-
-(define derivation-expression
- ;; XXX: This procedure is superseded by 'gexp->derivation'.
- (store-lift build-expression->derivation))
-
(define package->derivation
(store-lift package-derivation))