me/guix
Archived
1
0
Fork 0
Code Activity

ci: Change manifest argument type.

Browse source 
* gnu/ci.scm (arguments->manifests): Change manifest argument type.
This commit is contained in:
Mathieu Othacehe 2021-03-21 15:35:34 +01:00
parent d1e1682749
commit 862af8c2ed
No known key found for this signature in database
GPG key ID: 8354763531769CA6
1 changed files with 6 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
gnu/ci.scm
View file

@ -423,16 +423,12 @@ valid."
(define (arguments->manifests arguments channels) (define (arguments->manifests arguments channels)
"Return the list of manifests extracted from ARGUMENTS." "Return the list of manifests extracted from ARGUMENTS."
(define (channel-name->checkout name) (map (lambda (manifest)
(let ((channel (find (lambda (channel) (any (lambda (checkout)
(eq? (channel-name channel) name)) (let ((path (in-vicinity checkout manifest)))
channels))) (and (file-exists? path)
(channel-url channel))) path)))
(map channel-url channels)))
(map (match-lambda
((name . path)
(let ((checkout (channel-name->checkout name)))
(in-vicinity checkout path))))
arguments)) arguments))
(define (manifests->packages store manifests) (define (manifests->packages store manifests)