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

Merge branch 'devel' into 'main'

Browse source 
changing parameters for configless

See merge request glicid-public/guix-glicid!187
This commit is contained in:
Jean-François GUILLAUME 2023-01-10 10:50:40 +00:00
commit c798d0abb4
1 changed files with 7 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
glicid/services/parallel.scm
View file

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