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: [PATCH] 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(-) diff --git a/build-aux/hydra/gnu-system.scm b/build-aux/hydra/gnu-system.scm index 8206be22ff04bf7ff9a9f4435cee6a160b8e55f5..abc107cb1c50a7f86aeb14c3d0299801803b8a8a 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 59e3172e1fbe817377951abed3cb1a69be5c8b57..189b973a69652751b2c8a2dca5012cca21989cff 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))