aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-08-25 16:48:10 +0200
committerLudovic Courtès <ludo@gnu.org>2013-08-25 16:48:10 +0200
commit6ad507ae54c912145a247308250be39ef80b9baa (patch)
tree057571a5e1873924322f3073ae9b4a317fd44ca1
parent9eed6f9b88ed589d7531e2d5cecc73fd095db523 (diff)
downloadguix-6ad507ae54c912145a247308250be39ef80b9baa.tar
guix-6ad507ae54c912145a247308250be39ef80b9baa.tar.gz
hydra: Return a symbol/thunk pair.
* build-aux/hydra/guix.scm (hydra-jobs): Return a symbol/thunk pair.
-rw-r--r--build-aux/hydra/guix.scm8
1 files 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))))))