From dd044c9f5393bb209c84462ef90dba1941715530 Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Mon, 4 Jan 2021 07:58:58 +0000 Subject: Cleanup in the comparison module --- guix-data-service/comparison.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'guix-data-service/comparison.scm') 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 ( -- cgit v1.2.3