From 17e76b4ef16fd8fd49e40abce9b5dd7d2b128e5d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 28 Feb 2019 18:32:51 +0000 Subject: [PATCH] Support a source for a job To describe why this job was enqueued. --- guix-data-service/jobs/load-new-guix-revision.scm | 6 +++--- 1 file 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