From 862af8c2ed131a23bdafdc22e7fbdd90765af6b4 Mon Sep 17 00:00:00 2001 From: Mathieu Othacehe Date: Sun, 21 Mar 2021 15:35:34 +0100 Subject: ci: Change manifest argument type. * gnu/ci.scm (arguments->manifests): Change manifest argument type. --- gnu/ci.scm | 16 ++++++---------- 1 file changed, 6 insertions(+), 10 deletions(-) (limited to 'gnu') 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) -- cgit 1.4.1