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: Use a script for database setup.

Browse source 
To avoid loading data service code in to the shepherd.

* gnu/services/guix.scm (guix-data-service-shepherd-services): Use a script
for database setup.

Change-Id: Ic67b33a98d63be69c8ee36d6e279d2c5690c179e
This commit is contained in:
Christopher Baines 2025-03-12 09:27:47 +00:00
parent 49e1504de2
commit 6a499bbb8e
No known key found for this signature in database
GPG key ID: 5E28A33B0B84F577
1 changed files with 39 additions and 25 deletions
Download patch file Download diff file Expand all files Collapse all files

64
gnu/services/guix.scm
View file

@ -615,33 +615,47 @@ ca-certificates.crt file in the system profile."
(requirement '(user-processes postgres))
(one-shot? #t)
(start
(with-extensions (cons package
;; This is a poorly constructed Guile load path,
;; since it contains things that aren't Guile
;; libraries, but it means that the Guile
;; libraries needed for the Guix Data Service
;; don't need to be individually specified here.
(append
(map second (package-inputs package))
(map second (package-propagated-inputs package))))
#~(lambda _
(use-modules (guix-data-service database)
(guix-data-service model git-repository)
(guix-data-service model build-server))
#~(make-forkexec-constructor
(list
#$(program-file
"data-service-setup-database"
(with-extensions
(cons package
;; This is a poorly constructed Guile load path, since
;; it contains things that aren't Guile libraries, but
;; it means that the Guile libraries needed for the
;; Guix Data Service don't need to be individually
;; specified here.
(append
(map second (package-inputs package))
(map second (package-propagated-inputs package))))
#~(lambda _
(use-modules (guix-data-service database)
(guix-data-service model git-repository)
(guix-data-service model build-server))
(begin
((@ (guix-data-service database) run-sqitch))
(begin
((@ (guix-data-service database) run-sqitch))
#$@(if git-repositories
#~(((@ (guix-data-service model git-repository)
specify-git-repositories)
'(#$@git-repositories)))
'())
#$@(if build-servers
#~(((@ (guix-data-service model build-server)
specify-build-servers)
'(#$@build-servers)))
'())))))
#$@(if git-repositories
#~(((@ (guix-data-service model git-repository)
specify-git-repositories)
'(#$@git-repositories)))
'())
#$@(if build-servers
#~(((@ (guix-data-service model build-server)
specify-build-servers)
'(#$@build-servers)))
'()))))))
#:user #$user
#:group #$group
#:directory "/var/lib/guix-data-service"
#:environment-variables
`(,(string-append
"GUIX_LOCPATH="
#$(libc-utf8-locales-for-target) "/lib/locale")
"LC_ALL=en_US.utf8")
#:log-file "/var/log/guix-data-service/setup-database.log"))
(auto-start? #t))
(shepherd-service