diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2013-08-24 18:24:17 +0200 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2013-08-24 18:24:17 +0200 |
| commit | f29f066439d8a030e53f2fb3ac269be00fb46e20 (patch) | |
| tree | 708effad7c224f0e27c9bd38bc2cd787394a4fce | |
| parent | 59e6ae6cf1863366976f86b509c80c6c546856f9 (diff) | |
| download | patches-f29f066439d8a030e53f2fb3ac269be00fb46e20.tar patches-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.scm | 7 |
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)))))) |