From 864659b8558fdf9244104021b2d13db99807daa7 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 25 Mar 2023 20:56:16 +0000 Subject: Add timestamp to the events --- guix-build-coordinator/coordinator.scm | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/guix-build-coordinator/coordinator.scm b/guix-build-coordinator/coordinator.scm index 5960031..962bc2b 100644 --- a/guix-build-coordinator/coordinator.scm +++ b/guix-build-coordinator/coordinator.scm @@ -267,7 +267,7 @@ (values submission-channel get-state-id))) -(define (build-coordinator-send-event build-coordinator . args) +(define (build-coordinator-send-event build-coordinator event-name data) (and=> (build-coordinator-scheduler build-coordinator) (lambda (scheduler) @@ -275,7 +275,12 @@ (lambda () (put-message (build-coordinator-events-channel build-coordinator) - args)) + (list event-name + `(,@data + (timestamp . ,(date->string + (time-utc->date + (current-time time-utc)) + "~1 ~3")))))) scheduler #:parallel? #t)))) -- cgit v1.2.3