aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-08-04 09:42:21 +0100
committerChristopher Baines <mail@cbaines.net>2019-08-04 09:42:21 +0100
commit002ae7685cc053cdce56c76e74c656a224180e6c (patch)
tree02cbffe02b5667514739b58d03cd1ea5826a323a
parent84197686ce227b21dae48745f2919a51e070c3c5 (diff)
downloaddata-service-002ae7685cc053cdce56c76e74c656a224180e6c.tar
data-service-002ae7685cc053cdce56c76e74c656a224180e6c.tar.gz
Clear the previous log entry when starting a job
-rw-r--r--guix-data-service/jobs/load-new-guix-revision.scm6
1 files changed, 5 insertions, 1 deletions
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
@@ -122,8 +122,12 @@
(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)