nixo
/
guix-devel
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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.
This commit is contained in:
Ludovic Courtès 2013-09-18 19:37:50 +02:00
parent 37c0ce3d27
commit 3301f17970
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
build-aux/hydra/gnu-system.scm
View File

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

3
build-aux/hydra/guix.scm
View File

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