cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Cleanup in the comparison module

Browse source
This commit is contained in:
Christopher Baines 2021-01-04 07:58:58 +00:00
parent 2a8a574f4a
commit dd044c9f53
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
guix-data-service/comparison.scm
View file

@ -704,7 +704,7 @@ ORDER BY coalesce(base_packages.name, target_packages.name) ASC, base_packages.v
(target-versions (target-versions
(package-data-vhash->package-versions-hash-table (package-data-vhash->package-versions-hash-table
target-packages-vhash))) target-packages-vhash)))
>
(hash-fold (lambda (name target-versions result) (hash-fold (lambda (name target-versions result)
(let ((base-versions (hash-ref base-versions name))) (let ((base-versions (hash-ref base-versions name)))
(if base-versions (if base-versions
@ -787,9 +787,9 @@ ORDER BY coalesce(base_packages.name, target_packages.name) ASC, base_packages.v
names-and-versions))) names-and-versions)))
(define* (lint-warning-differences-data conn (define* (lint-warning-differences-data conn
base-guix-revision-id base-guix-revision-id
target-guix-revision-id target-guix-revision-id
locale) locale)
(define query (define query
(string-append " (string-append "
WITH base_lint_warnings AS ( WITH base_lint_warnings AS (