diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-07-19 11:50:14 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-07-19 11:50:14 +0100 |
| commit | 2da3a195ea26fb6804475f21d1ad1c65aef19f6c (patch) | |
| tree | 2dcdb3706c1ec4a1fa361cd89dc0f65cd4519540 | |
| parent | b8d9ed19b209831e577a4ef5012204e1b31e61da (diff) | |
| download | data-service-2da3a195ea26fb6804475f21d1ad1c65aef19f6c.tar data-service-2da3a195ea26fb6804475f21d1ad1c65aef19f6c.tar.gz | |
Return two values from channel->source-and-derivations-by-system
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 9 |
1 files changed, 3 insertions, 6 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 9f46c47..fec32b9 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -1249,7 +1249,7 @@ derivation-file-name))) derivation-file-names-by-system) - (cons source derivation-file-names-by-system)))) + (values source derivation-file-names-by-system)))) (prevent-inlining-for-tests channel->source-and-derivations-by-system) @@ -1679,16 +1679,13 @@ (channel (name 'guix) (url git-repository-url) (commit commit))) - (source-and-channel-derivations-by-system + (guix-source + channel-derivations-by-system (channel->source-and-derivations-by-system conn channel-for-commit fetch-with-authentication? #:parallelism parallelism)) - (guix-source - (car source-and-channel-derivations-by-system)) - (channel-derivations-by-system - (cdr source-and-channel-derivations-by-system)) (guix-revision-id (load-channel-instances git-repository-id commit channel-derivations-by-system))) |