02/02: ci: Change manifest argument type.

[guix-commits]

mothacehe pushed a commit to branch master
in repository guix.

commit 862af8c2ed131a23bdafdc22e7fbdd90765af6b4
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Sun Mar 21 15:35:34 2021 +0100

    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(-)

diff --git a/gnu/ci.scm b/gnu/ci.scm
index acd05a1..2dcd49a 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)