cbaines/guix-data-service
1
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Remove some unnecessary parallel-via-thread-pool-channel calls

Browse source 
As these were causing errors because they were nested in letpar&.
This commit is contained in:
Christopher Baines 2020-10-04 11:29:51 +01:00
parent 96b65f16fb
commit fe7da1ba57
1 changed files with 15 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

9
guix-data-service/web/controller.scm
View file

@ -303,26 +303,23 @@
derivation-file-name)))))) derivation-file-name))))))
(if derivation (if derivation
(letpar& ((derivation-inputs (letpar& ((derivation-inputs
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection (with-thread-postgresql-connection
(lambda (conn) (lambda (conn)
(select-derivation-inputs-by-derivation-id (select-derivation-inputs-by-derivation-id
conn conn
(first derivation)))))) (first derivation)))))
(derivation-outputs (derivation-outputs
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection (with-thread-postgresql-connection
(lambda (conn) (lambda (conn)
(select-derivation-outputs-by-derivation-id (select-derivation-outputs-by-derivation-id
conn conn
(first derivation)))))) (first derivation)))))
(derivation-sources (derivation-sources
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection (with-thread-postgresql-connection
(lambda (conn) (lambda (conn)
(select-derivation-sources-by-derivation-id (select-derivation-sources-by-derivation-id
conn conn
(first derivation))))))) (first derivation))))))
(render-html (render-html
#:sxml (view-formatted-derivation derivation #:sxml (view-formatted-derivation derivation
derivation-inputs derivation-inputs