TakeV/guix
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

gexp: Slightly simplify 'lower-inputs'.

Browse source 
* guix/gexp.scm (lower-inputs): Simplify first case by removing the
  'input' binding.
This commit is contained in:
Ludovic Courtès 2015-03-28 18:24:03 +01:00
parent d9ae938f2c
commit 2242ff45fa
1 changed files with 6 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

12
guix/gexp.scm
View file

@ -204,12 +204,12 @@ (define* (lower-inputs inputs
(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)