diff --git a/guix-data-service/jobs/load-new-guix-revision.scm b/guix-data-service/jobs/load-new-guix-revision.scm index e1cfd14..370e003 100644 --- a/guix-data-service/jobs/load-new-guix-revision.scm +++ b/guix-data-service/jobs/load-new-guix-revision.scm @@ -2410,14 +2410,15 @@ SELECT store_path FROM derivation_source_files WHERE id = $1" (let ((systems (map car derivation-file-names-by-system)) (derivation-ids - (derivation-file-names->derivation-ids - postgresql-connection-pool - call-with-utility-thread - read-derivations/fiberized - derivation-ids-hash-table - (list->vector - (map cdr derivation-file-names-by-system)) - #:log-tag "channel-instances"))) + (vector->list + (derivation-file-names->derivation-ids + postgresql-connection-pool + call-with-utility-thread + read-derivations/fiberized + derivation-ids-hash-table + (list->vector + (map cdr derivation-file-names-by-system)) + #:log-tag "channel-instances")))) (map cons systems derivation-ids)) location-data))) data-with-derivation-file-names)))