aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--bffe/manage-builds.scm14
1 files changed, 7 insertions, 7 deletions
diff --git a/bffe/manage-builds.scm b/bffe/manage-builds.scm
index 9e26b07..e100254 100644
--- a/bffe/manage-builds.scm
+++ b/bffe/manage-builds.scm
@@ -295,11 +295,11 @@
#:name "submit-builds")))
(call-with-new-thread
(lambda ()
- (with-exception-handler
- (lambda (exn)
- (log-msg 'ERROR "exception in submit builds thread: " exn))
- (lambda ()
- (while #t
+ (while #t
+ (with-exception-handler
+ (lambda (exn)
+ (log-msg 'ERROR "exception in submit builds thread: " exn))
+ (lambda ()
(for-each
(lambda (repository-id)
(for-each
@@ -357,5 +357,5 @@
;; Wait until all the builds have been submitted
(sleep 5))
- (sleep 60)))
- #:unwind? #t))))))
+ (sleep 60))))
+ #:unwind? #t)))))