From 7ecdf46cbcb01eb5051a65f7f3ce7f3e71546ef3 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 14 Mar 2024 09:37:10 +0000 Subject: Don't error if there are no channel instance derivations As the data service might not have this information. --- bffe/manage-builds.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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) -- cgit v1.2.3