Use system-ids for inserting distribution counts

This commit is contained in:
Christopher Baines 2024-08-10 21:34:17 +01:00
parent 4d0813c331
commit eeda1bf33b
2 changed files with 3 additions and 6 deletions

View file

@ -1974,7 +1974,8 @@ SELECT 1 FROM derivation_source_file_nars WHERE derivation_source_file_id = $1"
(insert-guix-revision-package-derivation-distribution-counts
conn
guix-revision-id
system
(number->string
(system->system-id conn system))
(or target "")))))
(let ((process-system-and-target/fiberized