From fe7da1ba571fb2c4a3e9177a2edbbe7e7cf64a01 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Sun, 4 Oct 2020 11:29:51 +0100
Subject: [PATCH] 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