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

33
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