From a20b929e90e5a8f3ff7befff642017d86492017d Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Thu, 9 Mar 2023 14:05:41 +0000 Subject: Fix query in get-count-for-next-level --- guix-data-service/model/guix-revision-package-derivation.scm | 11 +++++++---- 1 file changed, 7 insertions(+), 4 deletions(-) diff --git a/guix-data-service/model/guix-revision-package-derivation.scm b/guix-data-service/model/guix-revision-package-derivation.scm index cb73114..2b0ed61 100644 --- a/guix-data-service/model/guix-revision-package-derivation.scm +++ b/guix-data-service/model/guix-revision-package-derivation.scm @@ -58,7 +58,7 @@ INNER JOIN guix_revision_package_derivations WHERE revision_id = $1" (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 (length level-counts)) @@ -73,10 +73,13 @@ WITH l0 AS ( INNER JOIN guix_revision_package_derivations ON package_derivations.id = guix_revision_package_derivations.package_derivation_id - WHERE revision_id = 19411 - AND system_id = 4 - AND target = $STR$$STR$~A + WHERE revision_id = ~A + AND system_id = ~A + AND target = $STR$~A$STR$~A )" + guix-revision-id + system-id + target (if (= next-level 0) "" (simple-format -- cgit v1.2.3