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

Use letpar& for systems and targets in render-compare/derivations

Browse source
This commit is contained in:
Christopher Baines 2020-10-09 19:30:48 +01:00
parent 8daf35e2df
commit 853aaa6a7c
1 changed files with 23 additions and 17 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

40
guix-data-service/web/compare/controller.scm
View file

@ -520,16 +520,19 @@
(render-json
'((error . "invalid query"))))
(else
(letpar& ((systems
(with-thread-postgresql-connection
valid-systems))
(targets
(with-thread-postgresql-connection
valid-targets)))
(render-html
#:sxml (compare/derivations
query-parameters
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection valid-systems))
(valid-targets->options
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection valid-targets)))
systems
(valid-targets->options targets)
build-status-strings
'()))))
'())))))
(let ((base-commit (assq-ref query-parameters 'base_commit))
(target-commit (assq-ref query-parameters 'target_commit))
@ -562,17 +565,20 @@
derivation-changes
#:extra-headers http-headers-for-unchanging-content))
(else
(render-html
#:sxml (compare/derivations
query-parameters
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection valid-systems))
(valid-targets->options
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection valid-targets)))
build-status-strings
derivation-changes)
#:extra-headers http-headers-for-unchanging-content))))))))))
(letpar& ((systems
(with-thread-postgresql-connection
valid-systems))
(targets
(with-thread-postgresql-connection
valid-targets)))
(render-html
#:sxml (compare/derivations
query-parameters
systems
(valid-targets->options targets)
build-status-strings
derivation-changes)
#:extra-headers http-headers-for-unchanging-content)))))))))))
(define (render-compare-by-datetime/derivations mime-types
query-parameters)