09/11: Include the base commit and target commit in the compare output

[Christopher Baines]

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

commit 2fa9f151f64c6bd70a7bf8ad5c08fe09ea51af5a
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Fri Oct 9 19:35:38 2020 +0100

    Include the base commit and target commit in the compare output
    
    This makes it easier to make other requests with the response body.
---
 guix-data-service/web/compare/controller.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/guix-data-service/web/compare/controller.scm 
b/guix-data-service/web/compare/controller.scm
index 6d7e78b..2a55d56 100644
--- a/guix-data-service/web/compare/controller.scm
+++ b/guix-data-service/web/compare/controller.scm
@@ -228,7 +228,9 @@
                      mime-types)
                 ((application/json)
                  (render-json
-                  `((channel-news . ,(list->vector
+                  `((base-commit    . ,(assq-ref query-parameters 
'base_commit))
+                    (target-commit  . ,(assq-ref query-parameters 
'target_commit))
+                    (channel-news . ,(list->vector
                                       (map
                                        (match-lambda
                                          ((commit tag title_text body_text 
change)