bartronx7/guix
1
0
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2026-01-25 12:05:19 -06:00
Code Issues Projects Releases Packages Wiki Activity Actions

ci: Backport package-channels procedure.

Browse source 
* gnu/ci.scm (package-channels): New procedure.
This commit is contained in:
Mathieu Othacehe 2021-06-14 10:08:49 +02:00
parent 7546a1d3c0
commit c13ad2b889
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 21 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
gnu/ci.scm
View file

@ -109,6 +109,27 @@ does not have the expected structure."
(_ #f)))
;; Backport from (guix describe) module.
(define (package-channels package)
"Return the list of channels providing PACKAGE or an empty list if it could
not be determined."
(match (and=> (package-location package) location-file)
(#f '())
(file
(let ((file (if (string-prefix? "/" file)
file
(search-path %load-path file))))
(if (and file
(string-prefix? (%store-prefix) file))
(filter-map
(lambda (entry)
(let ((item (manifest-entry-item entry)))
(and (or (string-prefix? item file)
(string=? "guix" (manifest-entry-name entry)))
(manifest-entry-channel entry))))
(current-profile-entries))
'())))))
(define* (derivation->job name drv
#:key
(max-silent-time 3600)