From fe50e73307ca75b98641abec5e9cb01f1760a65e Mon Sep 17 00:00:00 2001 From: Christopher Baines Date: Sun, 25 May 2025 13:47:15 +0100 Subject: [PATCH] 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 --- gnu/services/guix.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/gnu/services/guix.scm b/gnu/services/guix.scm index 854e6443a51..8f6b6652ef1 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"