Support a source for a job
To describe why this job was enqueued.
This commit is contained in:
parent
46c724456f
commit
17e76b4ef1
1 changed files with 3 additions and 3 deletions
|
|
@ -160,10 +160,10 @@
|
|||
conn
|
||||
"SELECT * FROM load_new_guix_revision_jobs ORDER BY id ASC LIMIT 1")))
|
||||
(match next
|
||||
(((id url commit))
|
||||
(((id url commit source))
|
||||
(begin
|
||||
(simple-format #t "Processing job ~A (url: ~A, commit: ~A)\n\n"
|
||||
id url commit)
|
||||
(simple-format #t "Processing job ~A (url: ~A, commit: ~A, source: ~A)\n\n"
|
||||
id url commit source)
|
||||
(load-new-guix-revision conn url commit)
|
||||
(exec-query
|
||||
conn
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue