Record jobs as failed when they are killed

So that they aren't retried again and again.

1 files changed, 14 insertions, 0 deletions

diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm
index a1e22ba..24fada7 100644
--- a/guix-data-service/jobs/load-new-guix-revision.scm
+++ b/guix-data-service/jobs/load-new-guix-revision.scm
@@ -24,10 +24,13 @@
   #:use-module (guix-data-service model package-metadata)
   #:use-module (guix-data-service model derivation)
   #:export (log-for-job
+            count-log-parts
+            combine-log-parts!
             fetch-unlocked-jobs
             process-load-new-guix-revision-job
             select-job-for-commit
             select-jobs-and-events
+            record-job-event
             enqueue-load-new-guix-revision-job
             most-recent-n-load-new-guix-revision-jobs))
 
@@ -122,6 +125,17 @@
 ($1, NULL) ON CONFLICT DO NOTHING"
    (list job-id)))
 
+(define (count-log-parts conn job-id)
+  (match (exec-query
+          conn
+          "
+SELECT COUNT(*)
+FROM load_new_guix_revision_job_log_parts
+WHERE job_id = $1"
+          (list job-id))
+    (((id))
+     (string->number id))))
+
 (define (combine-log-parts! conn job-id)
   (with-postgresql-transaction
    conn