diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-08-10 08:54:29 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-08-10 08:54:29 +0100 |
| commit | 3affd310980c3a82b47cfdf9cde15ee69b013e04 (patch) | |
| tree | ab948ad0a31af0c0474740b6ac9fff3c9f30ad58 /guix-build-coordinator | |
| parent | bea5bf2c03edca99e63ae9a2ff1e865e60a11ca7 (diff) | |
| download | build-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.scm | 10 |
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) |