diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-03-08 12:22:49 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-03-08 12:22:49 +0100 |
| commit | 7df3ade11286e52829c855b76fc395a4c3831ced (patch) | |
| tree | da35916815235fa2659575f2c4149c779278bf04 | |
| parent | d652b851373c1bb97da2e446b0d5aa5d0b1ad46d (diff) | |
| download | patches-7df3ade11286e52829c855b76fc395a4c3831ced.tar patches-7df3ade11286e52829c855b76fc395a4c3831ced.tar.gz | |
offload: Fix thinko.
* guix/scripts/offload.scm (choose-build-machine)[machine+slots]: Use
'filter-map', not 'filter'.
| -rw-r--r-- | guix/scripts/offload.scm | 8 |
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 |