diff options
author | Christopher Baines <mail@cbaines.net> | 2021-02-05 10:15:00 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-02-05 10:15:00 +0000 |
commit | 7155f428fc7eb7ea71e7d2d97dfc97a9410162a4 (patch) | |
tree | d48c941afa760f2fe2c25d5651929a89562001b1 /guix-build-coordinator | |
parent | f46c87d191c25527ba5de1e37fa20f02017a11f9 (diff) | |
download | build-coordinator-7155f428fc7eb7ea71e7d2d97dfc97a9410162a4.tar build-coordinator-7155f428fc7eb7ea71e7d2d97dfc97a9410162a4.tar.gz |
Fix datastore-list-builds failing if systems isn't specified
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r-- | guix-build-coordinator/datastore/sqlite.scm | 26 |
1 files changed, 14 insertions, 12 deletions
diff --git a/guix-build-coordinator/datastore/sqlite.scm b/guix-build-coordinator/datastore/sqlite.scm index 83475eb..d7def51 100644 --- a/guix-build-coordinator/datastore/sqlite.scm +++ b/guix-build-coordinator/datastore/sqlite.scm @@ -1410,18 +1410,20 @@ LEFT JOIN ( (if (null? all-tag-expressions) '() all-tag-expressions)) - (list - (string-append - "(" - (string-join - (map (lambda (system) - (simple-format - #f - "derivations.system = '~A'" - system)) - systems) - " OR ") - ")")) + (if (null? systems) + '() + (list + (string-append + "(" + (string-join + (map (lambda (system) + (simple-format + #f + "derivations.system = '~A'" + system)) + systems) + " OR ") + ")"))) (map (lambda (system) (simple-format #f "derivations.system != '~A'" system)) |