ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2024-12-24 05:18:07 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

offload: Fix thinko.

Browse source 
* guix/scripts/offload.scm (choose-build-machine)[machine+slots]: Use
  'filter-map', not 'filter'.
This commit is contained in:
Ludovic Courtès 2014-03-08 12:22:49 +01:00
parent d652b85137
commit 7df3ade112
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
guix/scripts/offload.scm
View file

@ -396,10 +396,10 @@ (define (choose-build-machine requirements machines)
(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