From a0e70b9d51812e1f8a22ef6bb0d1524c504c7324 Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Wed, 14 Oct 2020 18:53:31 +0200
Subject: [PATCH] Remove unused procedure.
* src/cuirass/base.scm (cancel-old-builds): Remove it.
---
src/cuirass/base.scm | 8 --------
1 file changed, 8 deletions(-)
diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index e9932321..1966ad6d 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -624,14 +624,6 @@ This procedure is meant to be called at startup."
(with-db-worker-thread db
(sqlite-exec db "UPDATE Builds SET status = -2 WHERE status = -1;")))
-(define (cancel-old-builds age)
- "Cancel builds older than AGE seconds."
- (log-message "canceling builds older than ~a seconds..." age)
- (with-db-worker-thread db
- (sqlite-exec
- db "UPDATE Builds SET status = 4 WHERE status = -2 AND timestamp < "
- (- (time-second (current-time time-utc)) age) ";")))
-
(define (restart-builds)
"Restart builds whose status in the database is \"pending\" (scheduled or
started)."
--
GitLab