Cleanup scheduled and started builds with "0" timestamps

Not sure how these appeared, but deleting them seems to be sensible.

1 files changed, 16 insertions, 0 deletions

diff --git a/guix-data-service/builds.scm b/guix-data-service/builds.scm
index e347789..7d681cc 100644
--- a/guix-data-service/builds.scm
+++ b/guix-data-service/builds.scm
@@ -123,12 +123,28 @@ initial connection on which HTTP requests are sent."
                (_
                 (loop tail (+ 1 processed) result)))))))))) ;keep going
 
+(define (cleanup-bad-build-data conn)
+  (exec-query
+   conn
+   "
+DELETE FROM build_status
+WHERE status IN ('started', 'scheduled')
+  AND timestamp = '1970-01-01T00:00:00'
+  AND EXISTS (
+    SELECT 1
+    FROM build_status AS other
+    WHERE other.status = build_status.status
+      AND build_status.build_id = other.build_id
+      AND other.timestamp > '1970-01-01T00:00:01'
+  )"))
+
 (define verbose-output?
   (make-parameter #f))
 
 (define* (query-build-servers conn build-server-ids revision-commits
                               outputs
                               #:key verbose?)
+  (cleanup-bad-build-data conn)
   (parameterize
       ((verbose-output? verbose?))
     (while #t