diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-03-25 20:56:16 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-03-25 21:47:59 +0000 |
| commit | 864659b8558fdf9244104021b2d13db99807daa7 (patch) | |
| tree | f5c775c33a053c6d9564ffb7a328e033434c4cfb | |
| parent | d6ae42f19691267d915cd66174436f33debabec0 (diff) | |
| download | build-coordinator-864659b8558fdf9244104021b2d13db99807daa7.tar build-coordinator-864659b8558fdf9244104021b2d13db99807daa7.tar.gz | |
Add timestamp to the events
| -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)))) |