diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-26 20:27:00 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-26 20:27:14 +0000 |
| commit | 7683567622ccd6bbde789bfa608811c44c47c96a (patch) | |
| tree | e37c434ebd90be41b2061387e7bbffabcaf24679 /guix-build-coordinator | |
| parent | 3673bda6064038bd56469993d4df5487b7054a53 (diff) | |
| download | build-coordinator-7683567622ccd6bbde789bfa608811c44c47c96a.tar build-coordinator-7683567622ccd6bbde789bfa608811c44c47c96a.tar.gz | |
Fix a crash when rendering the client builds response
Diffstat (limited to 'guix-build-coordinator')
| -rw-r--r-- | guix-build-coordinator/client-communication.scm | 12 |
1 files changed, 9 insertions, 3 deletions
diff --git a/guix-build-coordinator/client-communication.scm b/guix-build-coordinator/client-communication.scm index 4fdfade..cd164ec 100644 --- a/guix-build-coordinator/client-communication.scm +++ b/guix-build-coordinator/client-communication.scm @@ -278,9 +278,15 @@ (lambda (time) (strftime "%F %T" time))) 'null)) - (tags . ,(datastore-fetch-build-tags - datastore - (assq-ref build-details 'uuid))))) + (tags . ,(vector-map + (lambda (_ tag) + (match tag + ((key . value) + `((key . ,key) + (value . ,value))))) + (datastore-fetch-build-tags + datastore + (assq-ref build-details 'uuid)))))) (datastore-list-builds datastore #:tags |