From c12959330b75a7582b978500c24de848f43d3edd Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 20 Dec 2020 19:37:36 +0000 Subject: [PATCH] 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