diff options
| author | Mark H Weaver <mhw@netris.org> | 2015-06-17 13:55:21 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2015-06-17 15:33:08 -0400 |
| commit | 2c049216340cf25660b39b3f358ad112cbd1a798 (patch) | |
| tree | dd930a40a6c7c140552ea998e7cf289b67f56f3b /guix/scripts/offload.scm | |
| parent | 86517de69c0626f60f60b81c42747cb19bafa69b (diff) | |
| download | gnu-guix-2c049216340cf25660b39b3f358ad112cbd1a798.tar gnu-guix-2c049216340cf25660b39b3f358ad112cbd1a798.tar.gz | |
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.
Diffstat (limited to 'guix/scripts/offload.scm')
| -rw-r--r-- | guix/scripts/offload.scm | 4 |
1 files changed, 1 insertions, 3 deletions
diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm index e65125741f..e6be8b4465 100644 --- a/guix/scripts/offload.scm +++ b/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 |