diff options
| author | Mathieu Lirzin <mthl@gnu.org> | 2016-07-02 15:49:34 +0200 |
|---|---|---|
| committer | Mathieu Lirzin <mthl@gnu.org> | 2016-07-02 15:49:34 +0200 |
| commit | 13db5aa618761282f79eed0a541fc800178a4513 (patch) | |
| tree | 065dcb241b7e13d64932c3865735844944400ec1 /bin | |
| parent | 7ae6ce069070582e42b669d6a1ecfde5e9b998ba (diff) | |
| download | cuirass-13db5aa618761282f79eed0a541fc800178a4513.tar cuirass-13db5aa618761282f79eed0a541fc800178a4513.tar.gz | |
λ all the things!
Diffstat (limited to 'bin')
| -rw-r--r-- | bin/cuirass.in | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/bin/cuirass.in b/bin/cuirass.in index 84e3f18..4fd090c 100644 --- a/bin/cuirass.in +++ b/bin/cuirass.in @@ -86,7 +86,7 @@ if required." (define (evaluate store db spec) "Evaluate and build package derivations. Return a list a jobs." (save-module-excursion - (lambda () + (λ () (set-current-module %user-module) ;; Handle both relative and absolute file names for SPEC-FILE. (with-directory-excursion @@ -108,7 +108,7 @@ if required." (guix-variable 'store 'current-build-output-port)) (derivation-path->output-path (guix-variable 'derivations 'derivation-path->output-path))) - (map (lambda (job) + (map (λ (job) (let ((log-port (tmpfile)) (name (job-name job)) (drv (job-derivation job))) @@ -155,13 +155,13 @@ if required." (let ((store ((guix-variable 'store 'open-connection)))) (dynamic-wind (const #t) - (lambda () + (λ () (let ((jobs (evaluate store db spec)) (set-build-options (guix-variable 'store 'set-build-options))) (set-build-options store #:use-substitutes? #f) (build-packages store db jobs))) - (lambda () + (λ () ((guix-variable 'store 'close-connection) store) (set! %load-path old-path)))))) specs) |