me
/
guix
Archived
1
0
Fork 0
Code

offload: Fix 'choose-build-machine' for several machines. 

* guix/scripts/offload.scm (choose-build-machine)[undecorate]: Turn into
  a two-argument procedure.
master
Ludovic Courtès 2014-03-13 22:57:21 +01:00
parent 3c0e6e6080
commit 1a8ea0a188
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
guix/scripts/offload.scm
View File

@ -466,10 +466,14 @@ allowed on MACHINE."
machines))
(define (undecorate pred)
(match-lambda
((machine slot)
(and (pred machine)
(list machine slot)))))
(lambda (a b)
(match a
((machine1 slot1)
(match b
((machine2 slot2)
(if (pred machine1 machine2)
(list machine1 slot1)
(list machine2 slot2))))))))
(let ((machines+slots (sort machines+slots
(undecorate machine-less-loaded-or-faster?))))