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