[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/02: Include the revision details for package dervation comparisons
From: |
Christopher Baines |
Subject: |
02/02: Include the revision details for package dervation comparisons |
Date: |
Sun, 20 Dec 2020 14:38:11 -0500 (EST) |
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