diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-02-02 19:49:09 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-02-02 19:49:09 +0000 |
| commit | 6195d7b18f913d0f8f5540858676b7d6c45196b7 (patch) | |
| tree | d2c4e1cf8b422af2b9749d28265eaa8982d7b861 | |
| parent | f868591d1c742886cb65e01c919db3b4a0900577 (diff) | |
| download | data-service-6195d7b18f913d0f8f5540858676b7d6c45196b7.tar data-service-6195d7b18f913d0f8f5540858676b7d6c45196b7.tar.gz | |
Remove store_path from select-guix-revision-for-branch-and-datetime
As I want to remove the field from the database.
| -rw-r--r-- | guix-data-service/model/guix-revision.scm | 1 | ||||
| -rw-r--r-- | 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 |