Improve select-job-for-commit

It now returns #f or a list, rather than the empty list or a nested list.
This commit is contained in:
Christopher Baines 2020-10-09 19:31:51 +01:00
parent 51204aefca
commit 6023aa8caf
4 changed files with 44 additions and 43 deletions

View file

@ -1388,7 +1388,9 @@ GROUP BY 1, 2")
"SELECT id, commit, source, git_repository_id "
"FROM load_new_guix_revision_jobs WHERE commit = $1")
(list commit))))
result))
(match result
(() #f)
((job) job))))
(define* (select-recent-job-events conn
#:key (limit 8))