From 6ad507ae54c912145a247308250be39ef80b9baa Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Sun, 25 Aug 2013 16:48:10 +0200 Subject: [PATCH] hydra: Return a symbol/thunk pair. * build-aux/hydra/guix.scm (hydra-jobs): Return a symbol/thunk pair. --- build-aux/hydra/guix.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/build-aux/hydra/guix.scm b/build-aux/hydra/guix.scm index 4330e31632..a8d740e03c 100644 --- a/build-aux/hydra/guix.scm +++ b/build-aux/hydra/guix.scm @@ -94,8 +94,8 @@ containing a Git checkout of Guix." (define checkout (assq-ref arguments 'guix)) - (format #t "using checkout ~s~%" checkout) + (format (current-error-port) "using checkout ~s~%" checkout) (let ((directory (assq-ref checkout 'file-name))) - `((tarball . ,(package->alist store - (tarball-package directory) - (%current-system)))))) + `((tarball . ,(cute package->alist store + (tarball-package directory) + (%current-system))))))