Browse Source

offload: Fix sorting bug in 'choose-build-machine'.

* guix/scripts/offload.scm (choose-build-machine)[undecorate]: Return the
  boolean result of pred instead of the best machine+slot.
version-0.8.3
Mark H Weaver 7 years ago
parent
commit
2c04921634
  1. 4
      guix/scripts/offload.scm

4
guix/scripts/offload.scm

@ -606,9 +606,7 @@ defines a total order on machines.)"
((machine1 slot1)
(match b
((machine2 slot2)
(if (pred machine1 machine2)
(list machine1 slot1)
(list machine2 slot2))))))))
(pred machine1 machine2)))))))
(let loop ((machines+slots
(sort machines+slots

Loading…
Cancel
Save