summaryrefslogtreecommitdiff
path: root/gnu/ci.scm
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-03-21 15:35:34 +0100
committerMathieu Othacehe <othacehe@gnu.org>2021-03-23 11:48:35 +0100
commit862af8c2ed131a23bdafdc22e7fbdd90765af6b4 (patch)
tree62bd201447abed3abb617ec75a2b73ed7e243a56 /gnu/ci.scm
parentd1e1682749b2ad863a78ec3b1e1e840b1dbf5149 (diff)
ci: Change manifest argument type.
* gnu/ci.scm (arguments->manifests): Change manifest argument type.
Diffstat (limited to 'gnu/ci.scm')
-rw-r--r--gnu/ci.scm16
1 files changed, 6 insertions, 10 deletions
diff --git a/gnu/ci.scm b/gnu/ci.scm
index acd05a18b4..2dcd49ac80 100644
--- a/gnu/ci.scm
+++ b/gnu/ci.scm
@@ -423,16 +423,12 @@ valid."
(define (arguments->manifests arguments channels)
"Return the list of manifests extracted from ARGUMENTS."
- (define (channel-name->checkout name)
- (let ((channel (find (lambda (channel)
- (eq? (channel-name channel) name))
- channels)))
- (channel-url channel)))
-
- (map (match-lambda
- ((name . path)
- (let ((checkout (channel-name->checkout name)))
- (in-vicinity checkout path))))
+ (map (lambda (manifest)
+ (any (lambda (checkout)
+ (let ((path (in-vicinity checkout manifest)))
+ (and (file-exists? path)
+ path)))
+ (map channel-url channels)))
arguments))
(define (manifests->packages store manifests)