diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-03-28 18:24:03 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-03-29 22:23:33 +0200 |
| commit | 2242ff45fa25656a0b4420fc901e22058513e338 (patch) | |
| tree | dc9030e430014ca0641c527b04c53a5817d57830 | |
| parent | d9ae938f2c950f3bf1896fb07189c3e28b4d8029 (diff) | |
| download | guix-2242ff45fa25656a0b4420fc901e22058513e338.tar.gz guix-2242ff45fa25656a0b4420fc901e22058513e338.zip | |
gexp: Slightly simplify 'lower-inputs'.
* guix/gexp.scm (lower-inputs): Simplify first case by removing the
'input' binding.
| -rw-r--r-- | guix/gexp.scm | 12 |
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) |