From 3301f179709d4ef4d5a1f50a634698d9abdb0519 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= Date: Wed, 18 Sep 2013 19:37:50 +0200 Subject: hydra: Return the .drv file names, not the 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. --- build-aux/hydra/gnu-system.scm | 3 ++- build-aux/hydra/guix.scm | 3 ++- 2 files changed, 4 insertions(+), 2 deletions(-) (limited to 'build-aux') diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm index 8206be22ff..abc107cb1c 100644 --- a/build-aux/hydra/gnu-system.scm +++ b/build-aux/hydra/gnu-system.scm @@ -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)) diff --git a/build-aux/hydra/guix.scm b/build-aux/hydra/guix.scm index 59e3172e1f..189b973a69 100644 --- a/build-aux/hydra/guix.scm +++ b/build-aux/hydra/guix.scm @@ -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)) -- cgit v1.2.3