diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-04 07:58:58 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-04 07:58:58 +0000 |
| commit | dd044c9f5393bb209c84462ef90dba1941715530 (patch) | |
| tree | 3251f7056554bd4b643ff4082a1ef7063f1413ed /guix-data-service/comparison.scm | |
| parent | 2a8a574f4ac8b943ff75e4753392e46e1745dce1 (diff) | |
| download | data-service-dd044c9f5393bb209c84462ef90dba1941715530.tar data-service-dd044c9f5393bb209c84462ef90dba1941715530.tar.gz | |
Cleanup in the comparison module
Diffstat (limited to 'guix-data-service/comparison.scm')
| -rw-r--r-- | guix-data-service/comparison.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/guix-data-service/comparison.scm b/guix-data-service/comparison.scm index 1d6e0e9..4baed8c 100644 --- a/guix-data-service/comparison.scm +++ b/guix-data-service/comparison.scm @@ -704,7 +704,7 @@ ORDER BY coalesce(base_packages.name, target_packages.name) ASC, base_packages.v (target-versions (package-data-vhash->package-versions-hash-table target-packages-vhash))) -> + (hash-fold (lambda (name target-versions result) (let ((base-versions (hash-ref base-versions name))) (if base-versions @@ -787,9 +787,9 @@ ORDER BY coalesce(base_packages.name, target_packages.name) ASC, base_packages.v names-and-versions))) (define* (lint-warning-differences-data conn - base-guix-revision-id - target-guix-revision-id - locale) + base-guix-revision-id + target-guix-revision-id + locale) (define query (string-append " WITH base_lint_warnings AS ( |