diff options
| author | Christopher Baines <mail@cbaines.net> | 2024-03-14 09:37:10 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2024-03-14 09:37:10 +0000 |
| commit | 7ecdf46cbcb01eb5051a65f7f3ce7f3e71546ef3 (patch) | |
| tree | 9ff5b299e0e6c1597aa6c76160ed7e797c823bf2 | |
| parent | 67d957a6524b92b94f09b0b8e2622eb7e1ca803c (diff) | |
| download | bffe-7ecdf46cbcb01eb5051a65f7f3ce7f3e71546ef3.tar bffe-7ecdf46cbcb01eb5051a65f7f3ce7f3e71546ef3.tar.gz | |
Don't error if there are no channel instance derivations
As the data service might not have this information.
| -rw-r--r-- | bffe/manage-builds.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm index f6f4952..5520f31 100644 --- a/bffe/manage-builds.scm +++ b/bffe/manage-builds.scm @@ -325,7 +325,8 @@ (vector->list (assoc-ref channel-instance-derivation "builds"))))))) - (vector->list all-channel-instance-derivations)))) + (or (and=> all-channel-instance-derivations vector->list) + '())))) (unless (null? channel-instance-derivations-to-submit) (log-msg 'INFO "submitting " (length channel-instance-derivations-to-submit) |