02/02: Include the revision details for package dervation comparisons

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit c12959330b75a7582b978500c24de848f43d3edd
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Sun Dec 20 19:37:36 2020 +0000

    Include the revision details for package dervation comparisons
    
    I'm wanting the commits for tagging builds.
---
 guix-data-service/web/compare/controller.scm | 18 ++++++++++++++++--
 1 file 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