diff options
author | Christopher Baines <mail@cbaines.net> | 2021-01-16 20:10:26 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-01-16 20:10:26 +0000 |
commit | e1b3ccb8a4903da7ecb05daccf32a938c1995ffa (patch) | |
tree | 18e203bc632f38feaf38eaa19ad2be0397087634 | |
parent | bc2c821b6f0456b8812dd15e1dbbfa22d2813d92 (diff) | |
download | build-coordinator-e1b3ccb8a4903da7ecb05daccf32a938c1995ffa.tar build-coordinator-e1b3ccb8a4903da7ecb05daccf32a938c1995ffa.tar.gz |
Don't error when builds don't have a created at time
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 2b7a916..b2fa80c 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -164,9 +164,11 @@ (alist-delete 'end-time build-details)) - (created-at . ,(strftime - "%F %T" - (assq-ref build-details 'created-at))) + (created-at . ,(or (and=> + (assq-ref build-details 'created-at) + (lambda (time) + (strftime "%F %T" time))) + 'null)) (end-time . ,(or (and=> (assq-ref build-details 'end-time) (lambda (time) |