mirror of
git://git.savannah.gnu.org/guix/data-service.git
synced 2023-12-14 03:23:03 +01:00
10 lines
293 B
Scheme
10 lines
293 B
Scheme
(define-module (guix-data-service model build-server)
|
|
#:use-module (squee)
|
|
#:export (select-build-servers))
|
|
|
|
(define (select-build-servers conn)
|
|
(exec-query conn
|
|
(string-append
|
|
"SELECT id, url, lookup_all_derivations "
|
|
"FROM build_servers")))
|