From 7e958b8d5e7e9630391be21db9ec28fef2acbf5f Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sat, 4 Jul 2020 20:54:10 +0100 Subject: Remove backtick that snuck in --- guix-build-coordinator/hooks.scm | 24 ++++++++++++------------ 1 file 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))))) '()))))))) -- cgit v1.2.3