This is an automated email from the git hooks/post-receive script.
cbaines pushed a commit to branch master
in repository data-service.
The following commit(s) were added to refs/heads/master by this push:
new fe7da1b Remove some unnecessary parallel-via-thread-pool-channel calls
fe7da1b is described below
commit fe7da1ba571fb2c4a3e9177a2edbbe7e7cf64a01
Author: Christopher Baines <[email protected]>
AuthorDate: Sun Oct 4 11:29:51 2020 +0100
Remove some unnecessary parallel-via-thread-pool-channel calls
As these were causing errors because they were nested in letpar&.
---
guix-data-service/web/controller.scm | 33 +++++++++++++++------------------
1 file changed, 15 insertions(+), 18 deletions(-)
diff --git a/guix-data-service/web/controller.scm
b/guix-data-service/web/controller.scm
index cf751ad..7e162aa 100644
--- a/guix-data-service/web/controller.scm
+++ b/guix-data-service/web/controller.scm
@@ -303,26 +303,23 @@
derivation-file-name))))))
(if derivation
(letpar& ((derivation-inputs
- (parallel-via-thread-pool-channel
- (with-thread-postgresql-connection
- (lambda (conn)
- (select-derivation-inputs-by-derivation-id
- conn
- (first derivation))))))
+ (with-thread-postgresql-connection
+ (lambda (conn)
+ (select-derivation-inputs-by-derivation-id
+ conn
+ (first derivation)))))
(derivation-outputs
- (parallel-via-thread-pool-channel
- (with-thread-postgresql-connection
- (lambda (conn)
- (select-derivation-outputs-by-derivation-id
- conn
- (first derivation))))))
+ (with-thread-postgresql-connection
+ (lambda (conn)
+ (select-derivation-outputs-by-derivation-id
+ conn
+ (first derivation)))))
(derivation-sources
- (parallel-via-thread-pool-channel
- (with-thread-postgresql-connection
- (lambda (conn)
- (select-derivation-sources-by-derivation-id
- conn
- (first derivation)))))))
+ (with-thread-postgresql-connection
+ (lambda (conn)
+ (select-derivation-sources-by-derivation-id
+ conn
+ (first derivation))))))
(render-html
#:sxml (view-formatted-derivation derivation
derivation-inputs
