blob: 3f3162665231e62a969406dcddac34a08b0dd907 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
(define-module (guix-data-service model build-server)
#:use-module (ice-9 match)
#:use-module (squee)
#:export (select-build-servers))
(define (select-build-servers conn)
(define query
"
SELECT id, url, lookup_all_derivations
FROM build_servers
ORDER BY id")
(map
(match-lambda
((id url lookup-all-derivations)
(list (string->number id)
url
(string=? lookup-all-derivations "t"))))
(exec-query conn query)))
|