diff options
| author | Christopher Baines <mail@cbaines.net> | 2025-05-25 13:47:15 +0100 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2025-05-25 13:47:15 +0100 |
| commit | fe50e73307ca75b98641abec5e9cb01f1760a65e (patch) | |
| tree | 911c7a2baf3a54129fc036c39d4c1d43dc878514 | |
| parent | 59f81da5e06c8a68dedb03abca4daf9b4b8811af (diff) | |
services: guix-data-service: Fix data-service-setup-database script.
* gnu/services/guix.scm (guix-data-service-shepherd-services): Use begin
rather than lambda, add some logging and use guile from the data service
package.
Change-Id: I915682e513a3cc8e3cbf324e3c650c65d2852a96
| -rw-r--r-- | gnu/services/guix.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm index 854e6443a5..8f6b6652ef 100644 --- a/gnu/services/guix.scm +++ b/gnu/services/guix.scm @@ -639,11 +639,13 @@ ca-certificates.crt file in the system profile." (append (map second (package-inputs package)) (map second (package-propagated-inputs package)))) - #~(lambda _ + #~(begin (use-modules (guix-data-service database) (guix-data-service model git-repository) (guix-data-service model build-server)) + (simple-format #t "data-service-setup-database: ~A\n" + (current-filename)) (begin ((@ (guix-data-service database) run-sqitch)) @@ -656,7 +658,8 @@ ca-certificates.crt file in the system profile." #~(((@ (guix-data-service model build-server) specify-build-servers) '(#$@build-servers))) - '())))))) + '())))) + #:guile (lookup-package-input package "guile"))) #:user #$user #:group #$group #:directory "/var/lib/guix-data-service" |