aboutsummaryrefslogtreecommitdiff
path: root/guix-data-service/model/build-server.scm
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2019-03-06 22:54:07 +0000
committerChristopher Baines <mail@cbaines.net>2019-03-06 22:56:10 +0000
commit4d0d6f2e82cb997beff162237585a5b3def9c384 (patch)
treec135f5982013f3638e6a5b0e3caacd3aa924501a /guix-data-service/model/build-server.scm
parent8bef36a95ebe616a646a4616dda01ef83bd0a829 (diff)
downloaddata-service-4d0d6f2e82cb997beff162237585a5b3def9c384.tar
data-service-4d0d6f2e82cb997beff162237585a5b3def9c384.tar.gz
Add new models relating to builds and build servers
These will allow tracking what's going on with build servers.
Diffstat (limited to 'guix-data-service/model/build-server.scm')
-rw-r--r--guix-data-service/model/build-server.scm9
1 files changed, 9 insertions, 0 deletions
diff --git a/guix-data-service/model/build-server.scm b/guix-data-service/model/build-server.scm
new file mode 100644
index 0000000..d75f6c8
--- /dev/null
+++ b/guix-data-service/model/build-server.scm
@@ -0,0 +1,9 @@
+(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")))