aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix-data-service/model/guix-revision.scm1
-rw-r--r--guix-data-service/web/compare/controller.scm12
2 files changed, 6 insertions, 7 deletions
diff --git a/guix-data-service/model/guix-revision.scm b/guix-data-service/model/guix-revision.scm
index 1cde5e2..ecc3cf0 100644
--- a/guix-data-service/model/guix-revision.scm
+++ b/guix-data-service/model/guix-revision.scm
@@ -83,7 +83,6 @@
"
SELECT guix_revisions.id,
guix_revisions.commit,
- guix_revisions.store_path,
guix_revisions.git_repository_id,
git_branches.datetime
FROM guix_revisions
diff --git a/guix-data-service/web/compare/controller.scm b/guix-data-service/web/compare/controller.scm
index 95a5bf3..a847a1b 100644
--- a/guix-data-service/web/compare/controller.scm
+++ b/guix-data-service/web/compare/controller.scm
@@ -486,10 +486,10 @@
`((revisions
. ((base
. ((commit . ,(second base-revision-details))
- (datetime . ,(fifth base-revision-details))))
+ (datetime . ,(fourth base-revision-details))))
(target
. ((commit . ,(second target-revision-details))
- (datetime . ,(fifth target-revision-details))))))
+ (datetime . ,(fourth target-revision-details))))))
(channel-news . ,(list->vector
(map
(match-lambda
@@ -764,10 +764,10 @@
`((revisions
. ((base
. ((commit . ,(second base-revision-details))
- (datetime . ,(fifth base-revision-details))))
+ (datetime . ,(fourth base-revision-details))))
(target
. ((commit . ,(second target-revision-details))
- (datetime . ,(fifth target-revision-details))))))
+ (datetime . ,(fourth target-revision-details))))))
(derivation_changes
. ,derivation-changes))))
(else
@@ -1023,10 +1023,10 @@
`((revisions
. ((base
. ((commit . ,(second base-revision-details))
- (datetime . ,(fifth base-revision-details))))
+ (datetime . ,(fourth base-revision-details))))
(target
. ((commit . ,(second target-revision-details))
- (datetime . ,(fifth target-revision-details))))))
+ (datetime . ,(fourth target-revision-details))))))
(changes . ,(list->vector data)))))
(else
(render-html