diff options
Diffstat (limited to 'gnu')
| -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) |