tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

services: guix-data-service: Fix data-service-setup-database script.

Browse Source 
* 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
This commit is contained in:
Christopher Baines
2025-05-25 13:47:15 +01:00
parent 59f81da5e0
commit fe50e73307
1 changed files with 5 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
gnu/services/guix.scm
View File

@@ -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"