[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
04/07: gexp: Slightly simplify 'lower-inputs'.
From: |
Ludovic Courtès |
Subject: |
04/07: gexp: Slightly simplify 'lower-inputs'. |
Date: |
Sat, 28 Mar 2015 21:10:54 +0000 |
civodul pushed a commit to branch wip-build-systems-gexp
in repository guix.
commit b32aadd99ec944247aa3989fa7b218af408a428f
Author: Ludovic Courtès <address@hidden>
Date: Sat Mar 28 18:24:03 2015 +0100
gexp: Slightly simplify 'lower-inputs'.
* guix/gexp.scm (lower-inputs): Simplify first case by removing the
'input' binding.
---
guix/gexp.scm | 12 ++++++------
1 files changed, 6 insertions(+), 6 deletions(-)
diff --git a/guix/gexp.scm b/guix/gexp.scm
index 2492974..de8b7bb 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)
- branch wip-build-systems-gexp created (now 27044cb), Ludovic Courtès, 2015/03/28
- 01/07: doc: Update gexp wrt. extensibility., Ludovic Courtès, 2015/03/28
- 03/07: gnu: bootstrap: Move 'use-modules' forms to the beginning of build expressions., Ludovic Courtès, 2015/03/28
- 05/07: packages: Refer to the native tools when handling sources and downloads., Ludovic Courtès, 2015/03/28
- 07/07: gexp: Micro-optimize sexp serialization., Ludovic Courtès, 2015/03/28
- 04/07: gexp: Slightly simplify 'lower-inputs'.,
Ludovic Courtès <=
- 02/07: gexp: Add 'local-file'., Ludovic Courtès, 2015/03/28
- 06/07: build-system: Rewrite using gexps., Ludovic Courtès, 2015/03/28