diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2020-10-14 18:53:31 +0200 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2020-10-14 18:53:31 +0200 |
| commit | a0e70b9d51812e1f8a22ef6bb0d1524c504c7324 (patch) | |
| tree | 0d44197dcf1d72777832e1c492ff2b70ab59e08e | |
| parent | 38ee2c5b5b21404f383fc5066af8141785676e56 (diff) | |
| download | cuirass-a0e70b9d51812e1f8a22ef6bb0d1524c504c7324.tar cuirass-a0e70b9d51812e1f8a22ef6bb0d1524c504c7324.tar.gz | |
Remove unused procedure.
* src/cuirass/base.scm (cancel-old-builds): Remove it.
| -rw-r--r-- | src/cuirass/base.scm | 8 |
1 files changed, 0 insertions, 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)." |