diff options
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) |