1 files changed, 17 insertions, 3 deletions
diff --git a/guix-qa-frontpage/manage-builds.scm b/guix-qa-frontpage/manage-builds.scm
index e8a8f39..4f6caed 100644
--- a/guix-qa-frontpage/manage-builds.scm
+++ b/guix-qa-frontpage/manage-builds.scm
@@ -114,7 +114,11 @@
                                              ((< build-count 10)  0)
                                              ((< build-count 100) 50)
                                              ((< build-count 300) 100)
-                                             (else                150)))))))
+                                             (else                150))))
+              (simple-format
+               #t
+               "finished submitting builds for issue ~A\n"
+               issue-number))))
         (simple-format #t "no derivation changes url for issue ~A\n"
                        issue-number))))
 
@@ -214,6 +218,7 @@
                (display (backtrace) (current-error-port))
                (newline (current-error-port)))))
          #:unwind? #t)
+       (simple-format #t "finished submitting patch builds\n")
 
        (sleep 300)))))
 
@@ -482,7 +487,11 @@
       #:canceled #f
       #:processed #f
       #:relationship 'no-dependent-builds))
-   #:timeout 60))
+   #:timeout 60)
+  (simple-format (current-error-port)
+                 "finshed canceling builds for ~A ~A\n"
+                 category-name
+                 category-value))
 
 (define (cancel-builds-not-for-revision build-coordinator
                                         category-name
@@ -523,7 +532,12 @@
       #:canceled #f
       #:processed #f
       #:relationship 'no-dependent-builds))
-   #:timeout 60))
+   #:timeout 60)
+  (simple-format (current-error-port)
+                 "finished canceling builds for ~A ~A and not revision ~A\n"
+                 category-name
+                 category-value
+                 revision))
 
 (define (builds-missing-for-derivation-changes? derivation-changes)
   (any