Replace more instances of system->system-id with lookup-system-id

To avoid systems being inserted from queries.
2025-07-04 14:16:03 +01:00 · 2025-07-04 14:16:03 +01:00 · 02947cc9c4
commit 02947cc9c4
parent 98e1b6b3c7
3 changed files with 4 additions and 4 deletions
--- a/guix-data-service/model/derivation.scm
+++ b/guix-data-service/model/derivation.scm
@ -240,7 +240,7 @@ ORDER BY systems.system DESC,
          '("package_derivations.system_id" "target")
          (list
           (and=> system (lambda (system)
-                           (system->system-id conn system)))
+                           (lookup-system-id conn system)))
           targets))
       ,@(if minimum-builds
             (list