amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

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
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
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 (append
(map second (package-inputs package)) (map second (package-inputs package))
(map second (package-propagated-inputs package)))) (map second (package-propagated-inputs package))))
#~(lambda _ #~(begin
(use-modules (guix-data-service database) (use-modules (guix-data-service database)
(guix-data-service model git-repository) (guix-data-service model git-repository)
(guix-data-service model build-server)) (guix-data-service model build-server))
(simple-format #t "data-service-setup-database: ~A\n"
(current-filename))
(begin (begin
((@ (guix-data-service database) run-sqitch)) ((@ (guix-data-service database) run-sqitch))
@ -656,7 +658,8 @@ ca-certificates.crt file in the system profile."
#~(((@ (guix-data-service model build-server) #~(((@ (guix-data-service model build-server)
specify-build-servers) specify-build-servers)
'(#$@build-servers))) '(#$@build-servers)))
'())))))) '()))))
#:guile (lookup-package-input package "guile")))
#:user #$user #:user #$user
#:group #$group #:group #$group
#:directory "/var/lib/guix-data-service" #:directory "/var/lib/guix-data-service"