wrong config

This commit is contained in:
Jean-François GUILLAUME 2021-12-08 15:14:47 +01:00
parent 4eec933686
commit 20b0ff7523
GPG key ID: 38751DAE145EFB5A
2 changed files with 15 additions and 4 deletions

View file

@ -24,6 +24,9 @@
(define-record-type* <autofs-configuration> (define-record-type* <autofs-configuration>
autofs-configuration make-autofs-configuration autofs-configuration make-autofs-configuration
autofs-configuration? autofs-configuration?
(autofs autofs-configuration-autofs
(default autofs)
)
(config-file autofs-config-file (config-file autofs-config-file
(default %default-autofs-conf) (default %default-autofs-conf)
) )

View file

@ -2,7 +2,6 @@
#:use-module (gnu services) #:use-module (gnu services)
#:use-module (gnu services shepherd) #:use-module (gnu services shepherd)
#:use-module (guix) #:use-module (guix)
#:use-module (guix gexp)
#:use-module (guix records) #:use-module (guix records)
#:use-module (ice-9 match) #:use-module (ice-9 match)
#:use-module (gnu packages parallel) #:use-module (gnu packages parallel)
@ -28,6 +27,9 @@
(define-record-type* <munged-configuration> (define-record-type* <munged-configuration>
munged-configuration make-munged-configuration munged-configuration make-munged-configuration
munged-configuration? munged-configuration?
(munge munge-configuration-munge
(default munge)
)
(key-file munged-key-file (key-file munged-key-file
(default "/etc/munge/munged.key") (default "/etc/munge/munged.key")
) )
@ -38,7 +40,7 @@
(define munged-service (define munged-service
(match-lambda (match-lambda
(($ <munged-configuration> key-file log-file) (($ <munged-configuration> munge key-file log-file)
(list (list
(shepherd-service (shepherd-service
(provision '(munged) ) (provision '(munged) )
@ -79,6 +81,9 @@
(define-record-type* <slurmdbd-configuration> (define-record-type* <slurmdbd-configuration>
slurmdbd-configuration make-slurmdbd-configuration slurmdbd-configuration make-slurmdbd-configuration
slurmdbd-configuration? slurmdbd-configuration?
(slurm slurm-configuration-slurm
(default slurm)
)
(slurmdbd-conf slurmdbd-slurmdbd-conf (slurmdbd-conf slurmdbd-slurmdbd-conf
(default "/etc/slurm/slurmdbd.conf") (default "/etc/slurm/slurmdbd.conf")
) )
@ -89,7 +94,7 @@
(define slurmdbd-service (define slurmdbd-service
(match-lambda (match-lambda
(($ <slurmdbd-configuration> slurmdbd-conf log-file) (($ <slurmdbd-configuration> slurm slurmdbd-conf log-file)
(list (list
(shepherd-service (shepherd-service
(provision '(slurmdbd) ) (provision '(slurmdbd) )
@ -129,6 +134,9 @@
(define-record-type* <slurmctld-configuration> (define-record-type* <slurmctld-configuration>
slurmctld-configuration make-slurmctld-configuration slurmctld-configuration make-slurmctld-configuration
slurmctld-configuration? slurmctld-configuration?
(slurm slurm-configuration-slurm
(default slurm)
)
(slurmctld-conf slurmctld-slurmctld-conf (slurmctld-conf slurmctld-slurmctld-conf
(default "/etc/slurm/slurmctld.conf") (default "/etc/slurm/slurmctld.conf")
) )
@ -139,7 +147,7 @@
(define slurmctld-service (define slurmctld-service
(match-lambda (match-lambda
(($ <slurmctld-configuration> slurmctld-conf log-file) (($ <slurmctld-configuration> slurm slurmctld-conf log-file)
(list (list
(shepherd-service (shepherd-service
(provision '(slurmctld) ) (provision '(slurmctld) )