From 002ae7685cc053cdce56c76e74c656a224180e6c Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 4 Aug 2019 09:42:21 +0100 Subject: [PATCH] Clear the previous log entry when starting a job --- guix-data-service/jobs/load-new-guix-revision.scm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index a24e24a..2dd3907 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -120,10 +120,14 @@ contents))))) (define (insert-empty-log-entry conn job-id) + (exec-query + conn + "DELETE FROM load_new_guix_revision_job_logs WHERE job_id = $1" + (list job-id)) (exec-query conn "INSERT INTO load_new_guix_revision_job_logs (job_id, contents) VALUES -($1, NULL) ON CONFLICT DO NOTHING" +($1, NULL)" (list job-id))) (define (count-log-parts conn job-id)