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:
parent
51204aefca
commit
6023aa8caf
4 changed files with 44 additions and 43 deletions
|
|
@ -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))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue