ci: Restore license handling.

This is a follow-up of 7c02eb6c and 44daec7f. Restore the initial behaviour.

* gnu/ci.scm (package->alist): Restore license handling.
This commit is contained in:
Mathieu Othacehe 2020-11-02 20:58:39 +01:00
parent 1077d54f6e
commit b5f2a035f9
No known key found for this signature in database
GPG key ID: 8354763531769CA6

View file

@ -89,7 +89,16 @@ (define* (package->alist store package system
(system . ,(derivation-system drv))
(description . ,(package-synopsis package))
(long-description . ,(package-description package))
(license . ,(and=> (package-license package) license-name))
;; XXX: Hydra ignores licenses that are not a <license> structure or a
;; list thereof.
(license . ,(let loop ((license (package-license package)))
(match license
((? license?)
(license-name license))
((lst ...)
(map loop license)))))
(home-page . ,(package-home-page package))
(maintainers . ("bug-guix@gnu.org"))
(max-silent-time . ,(or (assoc-ref (package-properties package)