From f2c7cc83ed28b6857e07cb6c58a4c9fee22802eb Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 29 Jul 2019 19:48:57 +0100 Subject: [PATCH] Fix the JSON compare output --- guix-data-service/web/controller.scm | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) 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