cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove store_path from select-guix-revision-for-branch-and-datetime

Browse source 
As I want to remove the field from the database.
This commit is contained in:
Christopher Baines 2021-02-02 19:49:09 +00:00
parent f868591d1c
commit 6195d7b18f
2 changed files with 6 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

1
guix-data-service/model/guix-revision.scm
View file

@ -83,7 +83,6 @@
" "
SELECT guix_revisions.id, SELECT guix_revisions.id,
guix_revisions.commit, guix_revisions.commit,
guix_revisions.store_path,
guix_revisions.git_repository_id, guix_revisions.git_repository_id,
git_branches.datetime git_branches.datetime
FROM guix_revisions FROM guix_revisions

12
guix-data-service/web/compare/controller.scm
View file

@ -486,10 +486,10 @@
`((revisions `((revisions
. ((base . ((base
. ((commit . ,(second base-revision-details)) . ((commit . ,(second base-revision-details))
(datetime . ,(fifth base-revision-details)))) (datetime . ,(fourth base-revision-details))))
(target (target
. ((commit . ,(second target-revision-details)) . ((commit . ,(second target-revision-details))
(datetime . ,(fifth target-revision-details)))))) (datetime . ,(fourth target-revision-details))))))
(channel-news . ,(list->vector (channel-news . ,(list->vector
(map (map
(match-lambda (match-lambda
@ -764,10 +764,10 @@
`((revisions `((revisions
. ((base . ((base
. ((commit . ,(second base-revision-details)) . ((commit . ,(second base-revision-details))
(datetime . ,(fifth base-revision-details)))) (datetime . ,(fourth base-revision-details))))
(target (target
. ((commit . ,(second target-revision-details)) . ((commit . ,(second target-revision-details))
(datetime . ,(fifth target-revision-details)))))) (datetime . ,(fourth target-revision-details))))))
(derivation_changes (derivation_changes
. ,derivation-changes)))) . ,derivation-changes))))
(else (else
@ -1023,10 +1023,10 @@
`((revisions `((revisions
. ((base . ((base
. ((commit . ,(second base-revision-details)) . ((commit . ,(second base-revision-details))
(datetime . ,(fifth base-revision-details)))) (datetime . ,(fourth base-revision-details))))
(target (target
. ((commit . ,(second target-revision-details)) . ((commit . ,(second target-revision-details))
(datetime . ,(fifth target-revision-details)))))) (datetime . ,(fourth target-revision-details))))))
(changes . ,(list->vector data))))) (changes . ,(list->vector data)))))
(else (else
(render-html (render-html