diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-02-28 18:32:51 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-02-28 18:47:28 +0000 |
| commit | 17e76b4ef16fd8fd49e40abce9b5dd7d2b128e5d (patch) | |
| tree | 19fae46bf878dc6f88dd648fac16bf14a933200b /guix-data-service/jobs | |
| parent | 46c724456f8fe84fcffc4530651e8f20e98eaf25 (diff) | |
| download | data-service-17e76b4ef16fd8fd49e40abce9b5dd7d2b128e5d.tar data-service-17e76b4ef16fd8fd49e40abce9b5dd7d2b128e5d.tar.gz | |
Support a source for a job
To describe why this job was enqueued.
Diffstat (limited to 'guix-data-service/jobs')
| -rw-r--r-- | guix-data-service/jobs/load-new-guix-revision.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index 311bdcd..b9b1380 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -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 |