~ruther/guix-local: hydra: Return the .drv file names, not the <derivation> objects.

3301f179709d4ef4d5a1f50a634698d9abdb0519 — Ludovic Courtès 12 years ago 37c0ce3

hydra: Return the .drv file names, not the <derivation> objects.

* build-aux/hydra/gnu-system.scm (package->alist): Call
  'derivation-file-name' on the result of 'package-derivation'.
* build-aux/hydra/guix.scm (package->alist): Likewise.

patch browse .tar.gz

2 files changed, 4 insertions(+), 2 deletions(-)

M build-aux/hydra/gnu-system.scm
M build-aux/hydra/guix.scm

M build-aux/hydra/gnu-system.scm => build-aux/hydra/gnu-system.scm +2 -1

@@ 58,7 58,8 @@
 (define* (package->alist store package system
                          #:optional (package-derivation package-derivation))
   "Convert PACKAGE to an alist suitable for Hydra."
-  `((derivation . ,(package-derivation store package system))
+  `((derivation . ,(derivation-file-name
+                    (package-derivation store package system)))
     (description . ,(package-synopsis package))
     (long-description . ,(package-description package))
     (license . ,(package-license package))

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

@@ 56,7 56,8 @@
 (define* (package->alist store package system
                          #:optional (package-derivation package-derivation))
   "Convert PACKAGE to an alist suitable for Hydra."
-  `((derivation . ,(package-derivation store package system))
+  `((derivation . ,(derivation-file-name
+                    (package-derivation store package system)))
     (description . ,(package-synopsis package))
     (long-description . ,(package-description package))
     (license . ,(package-license package))