Fix query in get-count-for-next-level

This commit is contained in:
Christopher Baines 2023-03-09 14:05:41 +00:00
parent 519f0c6f67
commit a20b929e90

View file

@ -58,7 +58,7 @@ INNER JOIN guix_revision_package_derivations
WHERE revision_id = $1" WHERE revision_id = $1"
(list guix-revision-id))) (list guix-revision-id)))
(define (get-count-for-next-level system target level-counts) (define (get-count-for-next-level system-id target level-counts)
(define next-level (define next-level
(length level-counts)) (length level-counts))
@ -73,10 +73,13 @@ WITH l0 AS (
INNER JOIN guix_revision_package_derivations INNER JOIN guix_revision_package_derivations
ON package_derivations.id ON package_derivations.id
= guix_revision_package_derivations.package_derivation_id = guix_revision_package_derivations.package_derivation_id
WHERE revision_id = 19411 WHERE revision_id = ~A
AND system_id = 4 AND system_id = ~A
AND target = $STR$$STR$~A AND target = $STR$~A$STR$~A
)" )"
guix-revision-id
system-id
target
(if (= next-level 0) (if (= next-level 0)
"" ""
(simple-format (simple-format