From 1b282ea84947f1484bbd53a3e9d66fd31f9a511c Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 5 Apr 2014 22:57:06 +0200 Subject: hydra: Change 'qemu-jobs' to return name/thunk pairs. * build-aux/hydra/gnu-system.scm (qemu-jobs)[->job]: Change the cdr to a thunk. --- build-aux/hydra/gnu-system.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm index 6aa491a274..67794ff6e6 100644 --- a/build-aux/hydra/gnu-system.scm +++ b/build-aux/hydra/gnu-system.scm @@ -128,7 +128,7 @@ system.") (define (->job name drv) (let ((name (symbol-append name (string->symbol ".") (string->symbol system)))) - `(,name . ,(->alist drv)))) + `(,name . ,(cut ->alist drv)))) (if (string=? system "x86_64-linux") (let* ((dir (dirname (assoc-ref (current-source-location) 'filename))) -- cgit v1.2.3