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

Add a package page, showing versions for a revision

Browse source
This commit is contained in:
Christopher Baines 2019-10-03 21:35:29 +01:00
parent a40a8f0f92
commit fb301a8495
3 changed files with 108 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

19
guix-data-service/model/package.scm
View file

@ -11,6 +11,7 @@
count-packages-in-revision
inferior-packages->package-ids
select-package-versions-for-revision
package-versions-for-branch))
(define (select-existing-package-entries package-entries)
@ -184,6 +185,24 @@ WHERE packages.id IN (
'(name version package_metadata_id)
package-entries))
(define (select-package-versions-for-revision conn
commit
package-name)
(define query "
SELECT DISTINCT version FROM packages
INNER JOIN package_derivations
ON packages.id = package_derivations.package_id
INNER JOIN guix_revision_package_derivations
ON package_derivations.id = guix_revision_package_derivations.package_derivation_id
INNER JOIN guix_revisions
ON guix_revision_package_derivations.revision_id = guix_revisions.id
WHERE guix_revisions.commit = $1 AND packages.name = $2
ORDER BY version")
(map
car
(exec-query conn query (list commit package-name))))
(define (package-versions-for-branch conn
git-repository-id
branch-name