diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-03-16 19:58:31 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-03-16 19:59:45 +0000 |
| commit | 38888aea6b398fb5a44af77314c03900cf64d43d (patch) | |
| tree | 1ab62087043ff6584b5cae0624c27eb9a47859a0 /guix-data-service/comparison.scm | |
| parent | a0f4f153a9950443b319e8af8c6b5e2da30d7335 (diff) | |
| download | data-service-38888aea6b398fb5a44af77314c03900cf64d43d.tar data-service-38888aea6b398fb5a44af77314c03900cf64d43d.tar.gz | |
Fix some duplication on the compare page
For the new and removed package sections.
Diffstat (limited to 'guix-data-service/comparison.scm')
| -rw-r--r-- | guix-data-service/comparison.scm | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/guix-data-service/comparison.scm b/guix-data-service/comparison.scm index 8688f84..132def8 100644 --- a/guix-data-service/comparison.scm +++ b/guix-data-service/comparison.scm @@ -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) (vlist->list - (vlist-filter (match-lambda - ((name . details) - (not (vhash-assoc name base-packages-vhash)))) - target-packages-vhash))) + (package-data-vhash->package-name-and-version-vhash + (vlist-filter (match-lambda + ((name . details) + (not (vhash-assoc name base-packages-vhash)))) + target-packages-vhash)))) (define (package-data-vhashes->removed-packages base-packages-vhash target-packages-vhash) (vlist->list - (vlist-filter (match-lambda - ((name . details) - (not (vhash-assoc name target-packages-vhash)))) - base-packages-vhash))) + (package-data-vhash->package-name-and-version-vhash + (vlist-filter (match-lambda + ((name . details) + (not (vhash-assoc name target-packages-vhash)))) + base-packages-vhash)))) (define (package-data-vhash->package-versions-vhash package-data-vhash) (define (system-and-target<? a b) |