05/08: hydra: Use system emulation on 128G nodes only.

[Ricardo Wurmus]

rekado pushed a commit to branch master
in repository maintenance.

commit 43f271c463b3af9151c0781a7defbaa1ba3bfbe7
Author: Ricardo Wurmus <address@hidden>
AuthorDate: Sun Jan 19 10:51:43 2020 +0100

    hydra: Use system emulation on 128G nodes only.
    
    * hydra/machines-for-berlin.scm <top-level>: Enable qemu for aarch64
    and armhf only on nodes with 128G RAM.
---
 hydra/machines-for-berlin.scm | 19 ++++++++++++-------
 1 file changed, 12 insertions(+), 7 deletions(-)

diff --git a/hydra/machines-for-berlin.scm b/hydra/machines-for-berlin.scm
index cfc99a0..12d322d 100644
--- a/hydra/machines-for-berlin.scm
+++ b/hydra/machines-for-berlin.scm
@@ -341,11 +341,16 @@
     (speed 1.0)
     (parallel-builds 2)))
 
-
-(let ((x86_64 (map template-x86_64 hosts)))
+(let* ((x86_64 (map template-x86_64 hosts))
+       (fast   (filter-map (match-lambda
+                           ((name key 128)
+                            (find (lambda (machine)
+                                    (string=? ((@@ (guix scripts offload) 
build-machine-name) machine) name))
+                                  x86_64))
+                           (_ #f))
+                          hosts)))
   (append overdrive (map aarch64->armhf overdrive)
-          armv7
-          x86_64 (map x86_64->i686 x86_64)
-          (map x86_64->qemu-aarch64 (take (drop x86_64 5) 5))
-          (map x86_64->qemu-armhf (take x86_64 5))))
-
+         armv7
+         x86_64 (map x86_64->i686 x86_64)
+         (map x86_64->qemu-aarch64 fast)
+         (map x86_64->qemu-armhf fast)))