summaryrefslogtreecommitdiff
path: root/guix
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2014-03-08 12:22:49 +0100
committerLudovic Courtès <ludo@gnu.org>2014-03-08 12:22:49 +0100
commit7df3ade11286e52829c855b76fc395a4c3831ced (patch)
treeda35916815235fa2659575f2c4149c779278bf04 /guix
parentd652b851373c1bb97da2e446b0d5aa5d0b1ad46d (diff)
offload: Fix thinko.
* guix/scripts/offload.scm (choose-build-machine)[machine+slots]: Use 'filter-map', not 'filter'.
Diffstat (limited to 'guix')
-rw-r--r--guix/scripts/offload.scm8
1 files changed, 4 insertions, 4 deletions
diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index 9ebe930a82..2d2dbe36c5 100644
--- a/guix/scripts/offload.scm
+++ b/guix/scripts/offload.scm
@@ -396,10 +396,10 @@ connections allowed to MACHINE."
(with-file-lock (machine-choice-lock-file)
(define machines+slots
- (map (lambda (machine)
- (let ((slot (acquire-build-slot machine)))
- (and slot (list machine slot))))
- machines))
+ (filter-map (lambda (machine)
+ (let ((slot (acquire-build-slot machine)))
+ (and slot (list machine slot))))
+ machines))
(define (undecorate pred)
(match-lambda