[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/03: Cleanup in the comparison module
From: |
Christopher Baines |
Subject: |
02/03: Cleanup in the comparison module |
Date: |
Mon, 4 Jan 2021 14:16:04 -0500 (EST) |
cbaines pushed a commit to branch master
in repository data-service.
commit dd044c9f5393bb209c84462ef90dba1941715530
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Mon Jan 4 07:58:58 2021 +0000
Cleanup in the comparison module
---
guix-data-service/comparison.scm | 8 ++++----
1 file 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 (