~ruther/guix-local: hydra: Extract the actual file name from the Guix checkout.

f29f066439d8a030e53f2fb3ac269be00fb46e20 — Ludovic Courtès 12 years ago 59e6ae6

hydra: Extract the actual file name from the Guix checkout.

* build-aux/hydra/guix.scm (hydra-jobs): Extract the `file-name' part of
  CHECKOUT.

patch browse .tar.gz

1 files changed, 5 insertions(+), 2 deletions(-)

M build-aux/hydra/guix.scm

M build-aux/hydra/guix.scm => build-aux/hydra/guix.scm +5 -2

@@ 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))))))