diff options
| author | Christopher Baines <mail@cbaines.net> | 2019-11-23 11:23:16 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2019-11-23 11:23:16 +0000 |
| commit | 6fad559b3256dd528dc01061043290455a0b6141 (patch) | |
| tree | 0057385a7cd9e5fab054df4c8f051076bc5b3623 /guix-data-service/model | |
| parent | 53652db9cab9604a96d82618c110a0d77b7dece5 (diff) | |
| download | data-service-6fad559b3256dd528dc01061043290455a0b6141.tar data-service-6fad559b3256dd528dc01061043290455a0b6141.tar.gz | |
Improve select-build-servers to convert strings to appropriate types
Diffstat (limited to 'guix-data-service/model')
| -rw-r--r-- | guix-data-service/model/build-server.scm | 18 |
1 files changed, 14 insertions, 4 deletions
diff --git a/guix-data-service/model/build-server.scm b/guix-data-service/model/build-server.scm index d75f6c8..3f31626 100644 --- a/guix-data-service/model/build-server.scm +++ b/guix-data-service/model/build-server.scm @@ -1,9 +1,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) - (exec-query conn - (string-append - "SELECT id, url, lookup_all_derivations " - "FROM build_servers"))) + (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))) |