Fix the JSON compare output

2019-07-29 19:48:57 +01:00 · 2019-07-29 19:48:57 +01:00 · f2c7cc83ed
commit f2c7cc83ed
parent 08d9cbbfe3
1 changed files with 7 additions and 1 deletions
--- 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