diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2021-03-21 15:35:34 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-03-23 11:48:35 +0100 |
| commit | 862af8c2ed131a23bdafdc22e7fbdd90765af6b4 (patch) | |
| tree | 62bd201447abed3abb617ec75a2b73ed7e243a56 | |
| parent | d1e1682749b2ad863a78ec3b1e1e840b1dbf5149 (diff) | |
ci: Change manifest argument type.
* gnu/ci.scm (arguments->manifests): Change manifest argument type.
| -rw-r--r-- | gnu/ci.scm | 16 |
1 files changed, 6 insertions, 10 deletions
diff --git a/gnu/ci.scm b/gnu/ci.scm index acd05a18b47..2dcd49ac806 100644 --- a/gnu/ci.scm +++ b/gnu/ci.scm | |||
| @@ -423,16 +423,12 @@ valid." | |||
| 423 | 423 | ||
| 424 | (define (arguments->manifests arguments channels) | 424 | (define (arguments->manifests arguments channels) |
| 425 | "Return the list of manifests extracted from ARGUMENTS." | 425 | "Return the list of manifests extracted from ARGUMENTS." |
| 426 | (define (channel-name->checkout name) | 426 | (map (lambda (manifest) |
| 427 | (let ((channel (find (lambda (channel) | 427 | (any (lambda (checkout) |
| 428 | (eq? (channel-name channel) name)) | 428 | (let ((path (in-vicinity checkout manifest))) |
| 429 | channels))) | 429 | (and (file-exists? path) |
| 430 | (channel-url channel))) | 430 | path))) |
| 431 | 431 | (map channel-url channels))) | |
| 432 | (map (match-lambda | ||
| 433 | ((name . path) | ||
| 434 | (let ((checkout (channel-name->checkout name))) | ||
| 435 | (in-vicinity checkout path)))) | ||
| 436 | arguments)) | 432 | arguments)) |
| 437 | 433 | ||
| 438 | (define (manifests->packages store manifests) | 434 | (define (manifests->packages store manifests) |