aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2023-08-10 08:54:29 +0100
committerChristopher Baines <mail@cbaines.net>2023-08-10 08:54:29 +0100
commit3affd310980c3a82b47cfdf9cde15ee69b013e04 (patch)
treeab948ad0a31af0c0474740b6ac9fff3c9f30ad58 /guix-build-coordinator
parentbea5bf2c03edca99e63ae9a2ff1e865e60a11ca7 (diff)
downloadbuild-coordinator-3affd310980c3a82b47cfdf9cde15ee69b013e04.tar
build-coordinator-3affd310980c3a82b47cfdf9cde15ee69b013e04.tar.gz
Ensure references doesn't contain the empty string
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r--guix-build-coordinator/datastore/sqlite.scm10
1 files changed, 6 insertions, 4 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm
index 824af59..bc086fb 100644
--- a/guix-build-coordinator/datastore/sqlite.scm
+++ b/guix-build-coordinator/datastore/sqlite.scm
@@ -3896,10 +3896,12 @@ WHERE builds.id = :build_id"
(output . ,output)
(hash . ,hash)
(size . ,size)
- (references . ,(and store_references
- (list->vector
- (string-split store_references
- #\space)))))))
+ (references . ,(if (and store_references
+ (not (string-null? store_references)))
+ (list->vector
+ (string-split store_references
+ #\space))
+ #())))))
statement)))
(sqlite-reset statement)