diff options
author | Christopher Baines <mail@cbaines.net> | 2021-01-31 20:26:27 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2021-01-31 20:26:27 +0000 |
commit | 3b6b255b0017c4302a9398950560fd47ee7d082d (patch) | |
tree | f71333dc5c486d2d1af98947c00435f529f10600 /guix-build-coordinator/client-communication.scm | |
parent | 7f2f5392bfc1650494dd2409fc031e518d3a00b1 (diff) | |
download | build-coordinator-3b6b255b0017c4302a9398950560fd47ee7d082d.tar build-coordinator-3b6b255b0017c4302a9398950560fd47ee7d082d.tar.gz |
Don't crash if builds don't have a created at date
Diffstat (limited to 'guix-build-coordinator/client-communication.scm')
-rw-r--r-- | guix-build-coordinator/client-communication.scm | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 141c94f..efb9c33 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -292,9 +292,12 @@ (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) |