02/02: Fix query in get-count-for-next-level

[Christopher Baines]

cbaines pushed a commit to branch master
in repository data-service.

commit a20b929e90e5a8f3ff7befff642017d86492017d
Author: Christopher Baines <mail@cbaines.net>
AuthorDate: Thu Mar 9 14:05:41 2023 +0000

    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