GLiCID/guix-glicid
7
0
Fork 0
mirror of https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git synced 2025-04-30 06:08:37 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

testing nested if for configless slurmd

Browse source
This commit is contained in:
Jean-François GUILLAUME 2023-01-10 11:24:53 +01:00
parent 5d77b3c76a
commit cb090f9787
Signed by: Jean-François GUILLAUME
GPG key ID: 38751DAE145EFB5A
1 changed files with 8 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
glicid/services/parallel.scm
View file

@ -201,20 +201,24 @@
(slurmd-conf slurmd-conf (default (file-append slurm "/etc/slurm/slurm.conf"))) (slurmd-conf slurmd-conf (default (file-append slurm "/etc/slurm/slurm.conf")))
(log-file log-file (default "/var/log/slurm/slurmd.log")) (log-file log-file (default "/var/log/slurm/slurmd.log"))
(slurmctld-host slurmctld-host (default #f)) (slurmctld-host slurmctld-host (default #f))
(configless configless (default #f))
(log-level log-level (default #f))) (log-level log-level (default #f)))
(define slurmd-service (define slurmd-service
(match-lambda (match-lambda
(($ <slurmd-configuration> slurm slurmd-conf slurmctld-host log-file log-level) (($ <slurmd-configuration> slurm slurmd-conf slurmctld-host configless log-file log-level)
(list (shepherd-service (provision '(slurmd)) (list (shepherd-service (provision '(slurmd))
(documentation "Run slurmd.") (documentation "Run slurmd.")
(requirement '(user-processes)) (requirement '(user-processes))
(respawn? #t) (respawn? #t)
(start #~(make-forkexec-constructor (list #$(file-append slurm "/sbin/slurmd") (start #~(make-forkexec-constructor (list #$(file-append slurm "/sbin/slurmd")
"-D" "-D"
#$@(if configless
'()
(list
#$@(if slurmctld-host #$@(if slurmctld-host
(list (string-append "--conf-server" slurmctld-host)) (list (string-append "--conf-server" slurmctld-host))
(list (string-append "-f" slurmd-conf))) (list (string-append "-f" slurmd-conf)))))
#$@(if log-level #$@(if log-level
(list log-level) (list log-level)
'())) '()))