aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator
diff options
context:
space:
mode:
authorChristopher Baines <mail@cbaines.net>2020-04-04 10:31:34 +0100
committerChristopher Baines <mail@cbaines.net>2020-04-04 10:31:34 +0100
commit63be42a3b477f3c4822d75ee5923118250713214 (patch)
tree2526755190b3d34e6b381d18773e62130d0e288a /guix-build-coordinator
parentab8ae7a64eab6c794563a3b5782e8912d9f67d1c (diff)
downloadbuild-coordinator-63be42a3b477f3c4822d75ee5923118250713214.tar
build-coordinator-63be42a3b477f3c4822d75ee5923118250713214.tar.gz
Add a config.scm file
Diffstat (limited to 'guix-build-coordinator')
-rw-r--r--guix-build-coordinator/config.scm.in44
1 files changed, 44 insertions, 0 deletions
diff --git a/guix-build-coordinator/config.scm.in b/guix-build-coordinator/config.scm.in
new file mode 100644
index 0000000..09a86bc
--- /dev/null
+++ b/guix-build-coordinator/config.scm.in
@@ -0,0 +1,44 @@
+;;; Guix Build Coordinator
+;;;
+;;; Copyright © 2020 Christopher Baines <mail@cbaines.net>
+;;;
+;;; This program is free software: you can redistribute it and/or
+;;; modify it under the terms of the GNU Affero General Public License
+;;; as published by the Free Software Foundation, either version 3 of
+;;; the License, or (at your option) any later version.
+;;;
+;;; This program is distributed in the hope that it will be useful,
+;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+;;; Affero General Public License for more details.
+;;;
+;;; You should have received a copy of the GNU Affero General Public
+;;; License along with this program. If not, see
+;;; <http://www.gnu.org/licenses/>.
+
+(define-module (guix-build-coordinator config)
+ #:use-module (guix store)
+ #:export (%config
+
+ %show-error-details))
+
+(define %config
+ (let ((config
+ `((guix . "@guix@")
+
+ (sqitch . "@sqitch@")
+ (sqitch-psql . "@psql@")
+ (sqitch-plan
+ . ,(let ((installed-plan
+ "@prefix@/share/guix-build-coordinator/sqitch/sqitch.plan")
+ (dev-plan
+ (string-append (getcwd) "/sqitch/sqitch.plan")))
+ (if (file-exists? installed-plan)
+ installed-plan
+ dev-plan))))))
+ (lambda (key)
+ (assoc-ref config key))))
+
+(define %show-error-details
+ (make-parameter #f))
+