diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-07-29 19:48:57 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-07-29 19:48:57 +0100 |
| commit | f2c7cc83ed28b6857e07cb6c58a4c9fee22802eb (patch) | |
| tree | 722d705d2a71a6988a8ad11dcc952b54c66e20df | |
| parent | 08d9cbbfe3a954123c5eb9e7652635ee81a66ed2 (diff) | |
| download | data-service-f2c7cc83ed28b6857e07cb6c58a4c9fee22802eb.tar data-service-f2c7cc83ed28b6857e07cb6c58a4c9fee22802eb.tar.gz | |
Fix the JSON compare output
| -rw-r--r-- | guix-data-service/web/controller.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/guix-data-service/web/controller.scm b/guix-data-service/web/controller.scm index 929d6e3..a76be6c 100644 --- a/guix-data-service/web/controller.scm +++ b/guix-data-service/web/controller.scm @@ -374,7 +374,13 @@ (render-json `((new-packages . ,(list->vector new-packages)) (removed-packages . ,(list->vector removed-packages)) - (version-changes . ,(list->vector version-changes))) + (version-changes . ,(list->vector + (map + (match-lambda + ((name data ...) + `((name . ,name) + ,@data))) + version-changes)))) #:extra-headers http-headers-for-unchanging-content)) (else (render-html |