diff options
-rw-r--r-- | guix-build-coordinator/hooks.scm | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/guix-build-coordinator/hooks.scm b/guix-build-coordinator/hooks.scm index fee06da..629372f 100644 --- a/guix-build-coordinator/hooks.scm +++ b/guix-build-coordinator/hooks.scm @@ -277,10 +277,10 @@ (derivation . ,(assq-ref build-details 'derivation-name)) ,@(let ((created-at (assq-ref build-details 'created-at))) (if created-at - `((timestamp` . ,(string->number - (strftime - "%s" - (assq-ref build-details 'created-at))))) + `((timestamp . ,(string->number + (strftime + "%s" + (assq-ref build-details 'created-at))))) '()))))))) (define (build-started-send-event-to-guix-data-service-hook target-url) @@ -326,10 +326,10 @@ (derivation . ,(assq-ref build-details 'derivation-name)) ,@(let ((end-time (assq-ref build-details 'end-time))) (if end-time - `((timestamp` . ,(string->number - (strftime "%s" - (assq-ref build-details - 'end-time))))) + `((timestamp . ,(string->number + (strftime "%s" + (assq-ref build-details + 'end-time))))) '()))))))) (define (build-failure-send-event-to-guix-data-service-hook target-url) @@ -348,8 +348,8 @@ (derivation . ,(assq-ref build-details 'derivation-name)) ,@(let ((end-time (assq-ref build-details 'end-time))) (if end-time - `((timestamp` . ,(string->number - (strftime "%s" - (assq-ref build-details - 'end-time))))) + `((timestamp . ,(string->number + (strftime "%s" + (assq-ref build-details + 'end-time))))) '()))))))) |