branch master updated: Remove some unnecessary parallel-via-thread-pool-channel calls

[Christopher Baines]

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 <mail@cbaines.net>
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