branch: main
commit c4d9ab1e24aeb29c54a7f6e11a2d19e5092fb65a
Author: Ludovic Courtès <l...@gnu.org>
AuthorDate: Thu Sep 19 10:44:31 2024 +0200
database: Increase ‘%build-submission-timeout’.
* src/cuirass/database.scm (%build-submission-timeout): Increase.
* src/cuirass/scripts/remote-server.scm (spawn-periodic-updates-fiber):
Increase delay.
---
src/cuirass/database.scm | 10 +++++++---
src/cuirass/scripts/remote-server.scm | 2 +-
2 files changed, 8 insertions(+), 4 deletions(-)
diff --git a/src/cuirass/database.scm b/src/cuirass/database.scm
index 5c101a5..ced96a7 100644
--- a/src/cuirass/database.scm
+++ b/src/cuirass/database.scm
@@ -2276,9 +2276,13 @@ Builds.starttime DESC, Builds.id DESC;"))
(cons (db-get-build (string->number id)) builds)))))))
(define %build-submission-timeout
- ;; Maximum number of second a build can be in "submitted" state before being
- ;; switched back to "scheduled".
- (* 30 60))
+ ;; Maximum number of seconds a build can be in "submitted" state before
+ ;; being switched back to "scheduled".
+ ;;
+ ;; Note: This should not be too low since a build can remain "submitted"
+ ;; while the chosen worker builds its dependencies, in particular
+ ;; dependencies that do not have an entry in the 'Builds' table.
+ (* 2 60 60))
(define (db-reschedule-stale-builds)
"Reschedule builds that have been in \"submitted\" state for too long."
diff --git a/src/cuirass/scripts/remote-server.scm
b/src/cuirass/scripts/remote-server.scm
index b6b34f0..08cf69a 100644
--- a/src/cuirass/scripts/remote-server.scm
+++ b/src/cuirass/scripts/remote-server.scm
@@ -382,7 +382,7 @@ requested received on its channel."
(lambda ()
(let loop ()
(db-reschedule-stale-builds)
- (sleep 600)
+ (sleep (* 15 60))
(loop)))))
