From f29f066439d8a030e53f2fb3ac269be00fb46e20 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 24 Aug 2013 18:24:17 +0200 Subject: hydra: Extract the actual file name from the Guix checkout. * build-aux/hydra/guix.scm (hydra-jobs): Extract the `file-name' part of CHECKOUT. --- build-aux/hydra/guix.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'build-aux') diff --git a/build-aux/hydra/guix.scm b/build-aux/hydra/guix.scm index dffe38c650..4330e31632 100644 --- a/build-aux/hydra/guix.scm +++ b/build-aux/hydra/guix.scm @@ -94,5 +94,8 @@ containing a Git checkout of Guix." (define checkout (assq-ref arguments 'guix)) - `((tarball . ,(package->alist store (tarball-package checkout) - (%current-system))))) + (format #t "using checkout ~s~%" checkout) + (let ((directory (assq-ref checkout 'file-name))) + `((tarball . ,(package->alist store + (tarball-package directory) + (%current-system)))))) -- cgit v1.2.3