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

Fix some duplication on the compare page

Browse source 
For the new and removed package sections.
This commit is contained in:
Christopher Baines 2019-03-16 19:58:31 +00:00
parent a0f4f153a9
commit 38888aea6b
Signed by: cbaines
GPG key ID: 5E28A33B0B84F577
2 changed files with 12 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -127,17 +127,19 @@ ORDER BY base_packages.name DESC, base_packages.version, target_packages.name, t
(define (package-data-vhashes->new-packages base-packages-vhash target-packages-vhash) (define (package-data-vhashes->new-packages base-packages-vhash target-packages-vhash)
(vlist->list (vlist->list
(vlist-filter (match-lambda (package-data-vhash->package-name-and-version-vhash
((name . details) (vlist-filter (match-lambda
(not (vhash-assoc name base-packages-vhash)))) ((name . details)
target-packages-vhash))) (not (vhash-assoc name base-packages-vhash))))
target-packages-vhash))))
(define (package-data-vhashes->removed-packages base-packages-vhash target-packages-vhash) (define (package-data-vhashes->removed-packages base-packages-vhash target-packages-vhash)
(vlist->list (vlist->list
(vlist-filter (match-lambda (package-data-vhash->package-name-and-version-vhash
((name . details) (vlist-filter (match-lambda
(not (vhash-assoc name target-packages-vhash)))) ((name . details)
base-packages-vhash))) (not (vhash-assoc name target-packages-vhash))))
base-packages-vhash))))
(define (package-data-vhash->package-versions-vhash package-data-vhash) (define (package-data-vhash->package-versions-vhash package-data-vhash)
(define (system-and-target<? a b) (define (system-and-target<? a b)

4
guix-data-service/web/view/html.scm
View file

@ -591,7 +591,7 @@
(tbody (tbody
,@(map ,@(map
(match-lambda (match-lambda
((name version rest ...) (((name . version) metadata)
`(tr `(tr
(td ,name) (td ,name)
(td ,version)))) (td ,version))))
@ -610,7 +610,7 @@
(tbody (tbody
,@(map ,@(map
(match-lambda (match-lambda
((name version rest ...) (((name . version) metadata)
`(tr `(tr
(td ,name) (td ,name)
(td ,version)))) (td ,version))))