aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2013-08-24 18:24:17 +0200
committerLudovic Courtès <ludo@gnu.org>2013-08-24 18:24:17 +0200
commitf29f066439d8a030e53f2fb3ac269be00fb46e20 (patch)
tree708effad7c224f0e27c9bd38bc2cd787394a4fce
parent59e6ae6cf1863366976f86b509c80c6c546856f9 (diff)
downloadguix-f29f066439d8a030e53f2fb3ac269be00fb46e20.tar
guix-f29f066439d8a030e53f2fb3ac269be00fb46e20.tar.gz
hydra: Extract the actual file name from the Guix checkout.
* build-aux/hydra/guix.scm (hydra-jobs): Extract the `file-name' part of CHECKOUT.
-rw-r--r--build-aux/hydra/guix.scm7
1 files changed, 5 insertions, 2 deletions
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))))))