Support a source for a job

To describe why this job was enqueued.
This commit is contained in:
Christopher Baines 2019-02-28 18:32:51 +00:00
parent 46c724456f
commit 17e76b4ef1
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577

View file

@ -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