diff options
author | Christopher Baines <mail@cbaines.net> | 2019-02-24 15:38:08 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2019-02-24 15:38:08 +0000 |
commit | e68142cf910b7a12b2eadda0c973de4541a47a29 (patch) | |
tree | 1cc76f68ea9e2a02a32fec416f73d6e11f57bfac /guix-data-service/comparison.scm | |
parent | a5cc703e18b249fa2d10b8952bb489d20752f836 (diff) | |
download | data-service-e68142cf910b7a12b2eadda0c973de4541a47a29.tar data-service-e68142cf910b7a12b2eadda0c973de4541a47a29.tar.gz |
Add a new page comparing the derivations of two revisions
Diffstat (limited to 'guix-data-service/comparison.scm')
-rw-r--r-- | guix-data-service/comparison.scm | 10 |
1 files changed, 3 insertions, 7 deletions
diff --git a/guix-data-service/comparison.scm b/guix-data-service/comparison.scm index bd09d49..3fc6215 100644 --- a/guix-data-service/comparison.scm +++ b/guix-data-service/comparison.scm @@ -7,7 +7,7 @@ #:use-module (guix-data-service model derivation) #:export (package-data->package-data-vhashes package-differences-data - package-data-vhashes->derivations + package-data-vhash->derivations package-data-vhashes->new-packages package-data-vhashes->removed-packages package-data-version-changes @@ -47,9 +47,7 @@ ORDER BY base_packages.name, base_packages.version, target_packages.name, target (list vlist-null vlist-null) package-data))) -(define (package-data-vhashes->derivations conn - base-packages-vhash - target-packages-vhash) +(define (package-data-vhash->derivations conn packages-vhash) (define (vhash->derivation-ids vhash) (vhash-fold (lambda (key value result) (cons (third value) @@ -58,9 +56,7 @@ ORDER BY base_packages.name, base_packages.version, target_packages.name, target vhash)) (let* ((derivation-ids - (delete-duplicates - (append (vhash->derivation-ids base-packages-vhash) - (vhash->derivation-ids target-packages-vhash)))) + (vhash->derivation-ids packages-vhash)) (derivation-data (select-derivations-by-id conn derivation-ids))) derivation-data)) |