offload: Fix thinko.
* guix/scripts/offload.scm (choose-build-machine)[machine+slots]: Use 'filter-map', not 'filter'.
This commit is contained in:
parent
d652b85137
commit
7df3ade112
|
@ -396,10 +396,10 @@ connections allowed to MACHINE."
|
||||||
|
|
||||||
(with-file-lock (machine-choice-lock-file)
|
(with-file-lock (machine-choice-lock-file)
|
||||||
(define machines+slots
|
(define machines+slots
|
||||||
(map (lambda (machine)
|
(filter-map (lambda (machine)
|
||||||
(let ((slot (acquire-build-slot machine)))
|
(let ((slot (acquire-build-slot machine)))
|
||||||
(and slot (list machine slot))))
|
(and slot (list machine slot))))
|
||||||
machines))
|
machines))
|
||||||
|
|
||||||
(define (undecorate pred)
|
(define (undecorate pred)
|
||||||
(match-lambda
|
(match-lambda
|
||||||
|
|
Loading…
Reference in New Issue