02/03: Remove store_path from select-guix-revision-for-branch-and-datetime

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit 6195d7b18f913d0f8f5540858676b7d6c45196b7
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Tue Feb 2 19:49:09 2021 +0000

    Remove store_path from select-guix-revision-for-branch-and-datetime
    
    As I want to remove the field from the database.
---
 guix-data-service/model/guix-revision.scm    |  1 -
 guix-data-service/web/compare/controller.scm | 12 ++++++------
 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