diff options
Diffstat (limited to 'guix-build-coordinator/config.scm.in')
| -rw-r--r-- | guix-build-coordinator/config.scm.in | 53 |
1 files changed, 24 insertions, 29 deletions
diff --git a/guix-build-coordinator/config.scm.in b/guix-build-coordinator/config.scm.in index de65835..2aa825f 100644 --- a/guix-build-coordinator/config.scm.in +++ b/guix-build-coordinator/config.scm.in @@ -23,35 +23,30 @@ %show-error-details)) (define %config - (let ((config - `((guix . "@guix@") - - (builds-dir . ,(let ((install-dir - "/var/lib/guix-build-coordinator/builds") - (dev-dir - (string-append (getcwd) "/data/builds"))) - (if (file-exists? install-dir) - install-dir - dev-dir))) - (build-logs-dir . ,(let ((install-dir - "/var/lib/guix-build-coordinator/build-logs") - (dev-dir - (string-append (getcwd) "/data/build-logs"))) - (if (file-exists? install-dir) - install-dir - dev-dir))) - - (sqitch . "@sqitch@") - (sqitch-psql . "@psql@") - (sqitch-sqlite . "@sqlite3@") - (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)))))) + (let* ((data-dir + (let ((install-dir + "/var/lib/guix-build-coordinator") + (dev-dir + (string-append (getcwd) "/data"))) + (if (file-exists? install-dir) + install-dir + dev-dir))) + (config + `((guix . "@guix@") + (data-dir . ,data-dir) + (builds-dir . ,(string-append data-dir "/builds")) + (build-logs-dir . ,(string-append data-dir "/build-logs")) + (sqitch . "@sqitch@") + (sqitch-psql . "@psql@") + (sqitch-sqlite . "@sqlite3@") + (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)))) |