aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-11-21 20:50:54 +0000
committerChristopher Baines <mail@cbaines.net>2019-11-21 20:50:54 +0000
commit5fc23d788db2cb2fdfbd0e5d375c63201d99887b (patch)
tree730ad54efeba84589f06bb10056e9abf4947cc33
parent152910ec9c6aaddecdd4f3e20fe7c9aeace6d2b9 (diff)
downloaddata-service-5fc23d788db2cb2fdfbd0e5d375c63201d99887b.tar
data-service-5fc23d788db2cb2fdfbd0e5d375c63201d99887b.tar.gz
Expand compare by datetime output
Include the commit and datetime for the revisions that were compared.
-rw-r--r--guix-data-service/web/compare/controller.scm9
1 files changed, 8 insertions, 1 deletions
diff --git a/guix-data-service/web/compare/controller.scm b/guix-data-service/web/compare/controller.scm
index dba1fd0..0033361 100644
--- a/guix-data-service/web/compare/controller.scm
+++ b/guix-data-service/web/compare/controller.scm
@@ -327,7 +327,14 @@
mime-types)
((application/json)
(render-json
- `((channel-news . ,(list->vector
+ `((revisions
+ . ((base
+ . ((commit . ,(second base-revision-details))
+ (datetime . ,(fifth base-revision-details))))
+ (target
+ . ((commit . ,(second target-revision-details))
+ (datetime . ,(fifth target-revision-details))))))
+ (channel-news . ,(list->vector
(map
(match-lambda
((commit tag title_text body_text change)