diff options
author | Christopher Baines <mail@cbaines.net> | 2023-11-05 13:42:03 +0000 |
---|---|---|
committer | Christopher Baines <mail@cbaines.net> | 2023-11-05 13:46:20 +0000 |
commit | c3cb04cb8052492dae715012586f9e3d2d64579d (patch) | |
tree | 1f56c415ef46e68d60d623e0a0bea70c4bd74ceb /guix-data-service/model | |
parent | f5acc60288e0ad9f0c1093f3d50af1347e4df1df (diff) | |
download | data-service-c3cb04cb8052492dae715012586f9e3d2d64579d.tar data-service-c3cb04cb8052492dae715012586f9e3d2d64579d.tar.gz |
Use fibers when processing new revisions
Just have one fiber at the moment, but this will enable using fibers for
parallelism in the future.
Fibers seemed to cause problems with the logging setup, which was a bit odd in
the first place. So move logging to the parent process which is better anyway.
Diffstat (limited to 'guix-data-service/model')
-rw-r--r-- | guix-data-service/model/package.scm | 11 |
1 files changed, 5 insertions, 6 deletions
diff --git a/guix-data-service/model/package.scm b/guix-data-service/model/package.scm index 263f46c..7ec2b09 100644 --- a/guix-data-service/model/package.scm +++ b/guix-data-service/model/package.scm @@ -264,12 +264,11 @@ INSERT INTO packages (name, version, package_metadata_id) VALUES " RETURNING id")) (define (inferior-packages->package-ids conn package-entries) - (list->vector - (insert-missing-data-and-return-all-ids - conn - "packages" - '(name version package_metadata_id replacement_package_id) - package-entries))) + (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 |