guix/data-service
2
0
Fork 0
mirror of git://git.savannah.gnu.org/guix/data-service.git synced 2023-12-14 03:23:03 +01:00
Code Issues Releases Wiki Activity

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
Show stats 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))))))
(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))))))
(first derivation)))))
(derivation-outputs
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection
(lambda (conn)
(select-derivation-outputs-by-derivation-id
conn
(first derivation))))))
(first derivation)))))
(derivation-sources
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection
(lambda (conn)
(select-derivation-sources-by-derivation-id
conn
(first derivation)))))))
(first derivation))))))
(render-html
#:sxml (view-formatted-derivation derivation
derivation-inputs