branch: main
commit 0411d6b1139dac062c0415f5a4a130def27002ec
Author: Ludovic Courtès <[email protected]>
AuthorDate: Tue Mar 18 15:07:00 2025 +0100
forges: notification: Clarify logged message.
* src/cuirass/forges/notification.scm (forge-notification-service):
Split catch-all case into two clauses; clarify message and adjust log
level.
---
src/cuirass/forges/notification.scm | 9 +++++++--
1 file changed, 7 insertions(+), 2 deletions(-)
diff --git a/src/cuirass/forges/notification.scm
b/src/cuirass/forges/notification.scm
index 0d1842f..aad9de2 100644
--- a/src/cuirass/forges/notification.scm
+++ b/src/cuirass/forges/notification.scm
@@ -155,9 +155,14 @@ when communcating with the forge."
(when (= 0 pending-builds)
(handler spec #:build-results build-results))
(loop spec evaluation-ids build-results)))
-
+ ((tag (? time?) _ ...)
+ ;; Since potentially many instances of this service ignore
+ ;; messages with this tag (e.g., 'jobset-registered'), do not
+ ;; flood logs.
+ (log-debug "ignoring incoming notification of type '~a'" tag)
+ (loop spec evaluation-ids build-results))
(message
- (log-info "nothing to do for ~s" message)
+ (log-warning "ignoring malformed notification: ~s" message)
(loop spec evaluation-ids build-results))))))))
(define (spawn-forge-notification-service spec)
