diff options
| author | Christopher Baines <mail@cbaines.net> | 2020-12-20 19:37:36 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2020-12-20 19:37:36 +0000 |
| commit | c12959330b75a7582b978500c24de848f43d3edd (patch) | |
| tree | 26d43ecd94588614c0364456bedbd463e64aad75 /guix-data-service/web/compare | |
| parent | 1df7b46343facb4ab70a31ebd96781bf6b2d5d54 (diff) | |
| download | data-service-c12959330b75a7582b978500c24de848f43d3edd.tar data-service-c12959330b75a7582b978500c24de848f43d3edd.tar.gz | |
Include the revision details for package dervation comparisons
I'm wanting the commits for tagging builds.
Diffstat (limited to 'guix-data-service/web/compare')
| -rw-r--r-- | guix-data-service/web/compare/controller.scm | 18 |
1 files 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 |