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

Improve the compare derivations page

Browse source 
Add support for filtering the results, and add the system and target
to the output.
This commit is contained in:
Christopher Baines 2019-03-17 22:44:09 +00:00
parent 0d16c87da8
commit 189014f3bc
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
5 changed files with 254 additions and 51 deletions
Download patch file Download diff file Expand all files Collapse all files

11
guix-data-service/comparison.scm
View file

@ -98,7 +98,9 @@ ORDER BY base_packages.name DESC, base_packages.version, target_packages.name, t
(select-derivations-by-id conn derivation-ids)))
derivation-data))
(define (package-data-vhash->derivations-and-build-status conn packages-vhash)
(define (package-data-vhash->derivations-and-build-status conn packages-vhash
systems targets
build-statuses)
(define (vhash->derivation-file-names vhash)
(vhash-fold (lambda (key value result)
(cons (third value)
@ -109,9 +111,12 @@ ORDER BY base_packages.name DESC, base_packages.version, target_packages.name, t
(let* ((derivation-file-names
(vhash->derivation-file-names packages-vhash))
(derivation-data
(select-derivations-and-build-status-by-file-name
(select-derivations-and-build-status
conn
derivation-file-names)))
#:file-names derivation-file-names
#:systems systems
#:targets targets
#:build-statuses build-statuses)))
derivation-data))
(define (package-data-vhash->package-name-and-version-vhash vhash)