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

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

Browse source 
To avoid systems being inserted from queries.
This commit is contained in:
Christopher Baines 2025-07-04 14:16:03 +01:00
parent 98e1b6b3c7
commit 02947cc9c4
3 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

2
guix-data-service/jobs/load-new-guix-revision.scm
View file

@ -1421,7 +1421,7 @@ SELECT store_path FROM derivation_source_files WHERE id = $1"
(get-sql-to-select-package-and-related-derivations-for-revision
conn
(commit->revision-id conn commit)
#:system-id (system->system-id conn system)
#:system-id (lookup-system-id conn system)
#:target target)
"
SELECT derivations.file_name

4
guix-data-service/model/build.scm
View file

@ -55,7 +55,7 @@
'())
,@(if system
`(("package_derivations.system_id = $" .
,(number->string (system->system-id conn system))))
,(number->string (lookup-system-id conn system))))
'())
,@(if target
`(("package_derivations.target = $" . ,target))
@ -184,7 +184,7 @@ WHERE derivations.file_name = $1"
'())
,@(if system
`(("package_derivations.system_id = $" .
,(number->string (system->system-id conn system))))
,(number->string (lookup-system-id conn system))))
'())
,@(if target
`(("package_derivations.target = $" . ,target))

2
guix-data-service/model/derivation.scm
View file

@ -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