diff options
-rw-r--r-- | guix-build-coordinator/coordinator.scm | 9 |
1 files 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)))) |