branch master updated: Remove unused procedure.

[Mathieu Othacehe]

This is an automated email from the git hooks/post-receive script.

mothacehe pushed a commit to branch master
in repository guix-cuirass.

The following commit(s) were added to refs/heads/master by this push:
     new a0e70b9  Remove unused procedure.
a0e70b9 is described below

commit a0e70b9d51812e1f8a22ef6bb0d1524c504c7324
Author: Mathieu Othacehe <othacehe@gnu.org>
AuthorDate: Wed Oct 14 18:53:31 2020 +0200

    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 e993232..1966ad6 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)."