summaryrefslogtreecommitdiff
path: root/guix/gexp.scm
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2015-03-28 18:24:03 +0100
committerLudovic Courtès <ludo@gnu.org>2015-03-29 22:23:33 +0200
commit2242ff45fa25656a0b4420fc901e22058513e338 (patch)
treedc9030e430014ca0641c527b04c53a5817d57830 /guix/gexp.scm
parentd9ae938f2c950f3bf1896fb07189c3e28b4d8029 (diff)
gexp: Slightly simplify 'lower-inputs'.
* guix/gexp.scm (lower-inputs): Simplify first case by removing the 'input' binding.
Diffstat (limited to 'guix/gexp.scm')
-rw-r--r--guix/gexp.scm12
1 files changed, 6 insertions, 6 deletions
diff --git a/guix/gexp.scm b/guix/gexp.scm
index 2492974d8f..de8b7bbb46 100644
--- a/guix/gexp.scm
+++ b/guix/gexp.scm
@@ -204,12 +204,12 @@ the cross-compilation target triplet."
(with-monad %store-monad
(sequence %store-monad
(map (match-lambda
- ((and ((? struct? thing) sub-drv ...) input)
- (mlet* %store-monad ((lower -> (lookup-compiler thing))
- (drv (lower thing system target)))
- (return `(,drv ,@sub-drv))))
- (input
- (return input)))
+ (((? struct? thing) sub-drv ...)
+ (mlet* %store-monad ((lower -> (lookup-compiler thing))
+ (drv (lower thing system target)))
+ (return `(,drv ,@sub-drv))))
+ (input
+ (return input)))
inputs))))
(define* (lower-reference-graphs graphs #:key system target)