diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2014-04-05 22:57:06 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2014-04-05 22:57:06 +0200 |
| commit | 1b282ea84947f1484bbd53a3e9d66fd31f9a511c (patch) | |
| tree | a142c2e38462d897467bb821a8398dffc9ec7b7e | |
| parent | 731b996255fb699cd91699f6cd22de41ebafcdcd (diff) | |
| download | guix-1b282ea84947f1484bbd53a3e9d66fd31f9a511c.tar.gz guix-1b282ea84947f1484bbd53a3e9d66fd31f9a511c.zip | |
hydra: Change 'qemu-jobs' to return name/thunk pairs.
* build-aux/hydra/gnu-system.scm (qemu-jobs)[->job]: Change the cdr to a
thunk.
| -rw-r--r-- | build-aux/hydra/gnu-system.scm | 2 |
1 files changed, 1 insertions, 1 deletions
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))) |