diff options
| author | Christopher Baines <mail@cbaines.net> | 2023-11-01 21:08:22 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2023-11-02 12:16:17 +0000 |
| commit | f5acc60288e0ad9f0c1093f3d50af1347e4df1df (patch) | |
| tree | 79da2627b9655368e74204381747d8c03ba99a84 /guix-data-service/model/package.scm | |
| parent | 89782b34499befbef7b9c4e13e5ff5178c7e27b4 (diff) | |
| download | data-service-f5acc60288e0ad9f0c1093f3d50af1347e4df1df.tar data-service-f5acc60288e0ad9f0c1093f3d50af1347e4df1df.tar.gz | |
Make some sweeping changes to loading new revisions
Move in the direction of being able to run multiple inferior REPLs, and use
some vectors rather than lists in places (maybe this is more efficient).
Diffstat (limited to 'guix-data-service/model/package.scm')
| -rw-r--r-- | guix-data-service/model/package.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/guix-data-service/model/package.scm b/guix-data-service/model/package.scm index 7ec2b09..263f46c 100644 --- a/guix-data-service/model/package.scm +++ b/guix-data-service/model/package.scm @@ -264,11 +264,12 @@ INSERT INTO packages (name, version, package_metadata_id) VALUES " RETURNING id")) (define (inferior-packages->package-ids conn package-entries) - (insert-missing-data-and-return-all-ids - conn - "packages" - '(name version package_metadata_id replacement_package_id) - package-entries)) + (list->vector + (insert-missing-data-and-return-all-ids + conn + "packages" + '(name version package_metadata_id replacement_package_id) + package-entries))) (define (select-package-versions-for-revision conn commit |