diff options
| -rw-r--r-- | guix-build-coordinator/coordinator.scm | 4 | ||||
| -rw-r--r-- | guix-build-coordinator/utils.scm | 7 |
2 files changed, 8 insertions, 3 deletions
diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 05f1fd2..1526cc0 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -1003,7 +1003,7 @@ (metric-increment failure-counter-metric #:label-values `((event . ,event))) - (sleep 10)) + (core-guile-sleep 10)) (lambda () (log-msg (build-coordinator-logger build-coordinator) 'DEBUG @@ -1056,7 +1056,7 @@ ;; the hook processing thread crashing, also raises ;; an exception, so just try and sleep and hope ;; things go better next time - (sleep 10)) + (core-guile-sleep 10)) (lambda () (log-msg (build-coordinator-logger build-coordinator) 'CRITICAL diff --git a/guix-build-coordinator/utils.scm b/guix-build-coordinator/utils.scm index 68c59d1..005ebc8 100644 --- a/guix-build-coordinator/utils.scm +++ b/guix-build-coordinator/utils.scm @@ -96,7 +96,9 @@ get-gc-metrics-updater get-guix-memory-metrics-updater - check-locale!)) + check-locale! + + core-guile-sleep)) (eval-when (eval load compile) (begin @@ -1467,3 +1469,6 @@ falling back to en_US.utf8\n" (lambda _ (setlocale LC_ALL "")) #:unwind? #t)) + +(define core-guile-sleep + sleep) |