From 4d0d6f2e82cb997beff162237585a5b3def9c384 Mon Sep 17 00:00:00 2001
From: Christopher Baines <mail@cbaines.net>
Date: Wed, 6 Mar 2019 22:54:07 +0000
Subject: Add new models relating to builds and build servers

These will allow tracking what's going on with build servers.
---
 guix-data-service/model/build-server.scm | 9 +++++++++
 1 file changed, 9 insertions(+)
 create mode 100644 guix-data-service/model/build-server.scm

(limited to 'guix-data-service/model/build-server.scm')

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")))
-- 
cgit v1.2.3