aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-data-service/web/compare/controller.scm18
1 files changed, 16 insertions, 2 deletions
diff --git a/guix-data-service/web/compare/controller.scm b/guix-data-service/web/compare/controller.scm
index b970904..2eea4a1 100644
--- a/guix-data-service/web/compare/controller.scm
+++ b/guix-data-service/web/compare/controller.scm
@@ -636,7 +636,13 @@
mime-types)
((application/json)
(render-json
- derivation-changes))
+ `((revisions
+ . ((base
+ . ((commit . ,base-commit)))
+ (target
+ . ((commit . ,target-commit)))))
+ (derivation_changes
+ . ,derivation-changes))))
(else
(letpar& ((systems
(with-thread-postgresql-connection
@@ -729,7 +735,15 @@
mime-types)
((application/json)
(render-json
- derivation-changes))
+ `((revisions
+ . ((base
+ . ((commit . ,(second base-revision-details))
+ (datetime . ,(fifth base-revision-details))))
+ (target
+ . ((commit . ,(second target-revision-details))
+ (datetime . ,(fifth target-revision-details))))))
+ (derivation_changes
+ . ,derivation-changes))))
(else
(render-html
#:sxml (compare/package-derivations