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

Fetch the list of system values from the database

Browse source 
This removes the need to hardcode some values in the code.
This commit is contained in:
Christopher Baines 2021-04-23 11:20:36 +01:00
parent b430c632b7
commit 6387f1bc67
5 changed files with 25 additions and 38 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -34,6 +34,7 @@
#:use-module (guix-data-service comparison)
#:use-module (guix-data-service jobs load-new-guix-revision)
#:use-module (guix-data-service model guix-revision)
#:use-module (guix-data-service model system)
#:use-module (guix-data-service model git-repository)
#:use-module (guix-data-service model derivation)
#:use-module (guix-data-service model build-server)
@ -683,7 +684,7 @@
(else
(letpar& ((systems
(with-thread-postgresql-connection
valid-systems))
list-systems))
(targets
(with-thread-postgresql-connection
valid-targets))
@ -748,7 +749,7 @@
(else
(letpar& ((systems
(with-thread-postgresql-connection
valid-systems))
list-systems))
(targets
(with-thread-postgresql-connection
valid-targets)))
@ -777,7 +778,7 @@
query-parameters
'datetime
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection valid-systems))
(with-thread-postgresql-connection list-systems))
(valid-targets->options
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection valid-targets)))
@ -852,7 +853,7 @@
query-parameters
'datetime
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection valid-systems))
(with-thread-postgresql-connection list-systems))
(valid-targets->options
(parallel-via-thread-pool-channel
(with-thread-postgresql-connection valid-targets)))
@ -960,7 +961,7 @@
(else
(letpar& ((systems
(with-thread-postgresql-connection
valid-systems))
list-systems))
(build-server-urls
(with-thread-postgresql-connection
select-build-server-urls-by-id)))
@ -998,7 +999,7 @@
(git-repositories-containing-commit conn target-commit))))
(systems
(with-thread-postgresql-connection
valid-systems)))
list-systems)))
(case (most-appropriate-mime-type
'(application/json text/html)
mime-types)
@ -1033,7 +1034,7 @@
(else
(letpar& ((systems
(with-thread-postgresql-connection
valid-systems))
list-systems))
(build-server-urls
(with-thread-postgresql-connection
select-build-server-urls-by-id)))
@ -1090,7 +1091,7 @@
(second target-revision-details)))))
(systems
(with-thread-postgresql-connection
valid-systems)))
list-systems)))
(case (most-appropriate-mime-type
'(application/json text/html)
mime-types)