diff options
| author | Efraim Flashner | 2021-02-03 08:44:16 +0000 |
|---|---|---|
| committer | Efraim Flashner | 2021-02-03 08:44:27 +0000 |
| commit | 8a00f84b33900a454c3b0822f412834ea7df5d8f (patch) | |
| tree | b4096443ffa90b763565d4c379fc761db63fd94a /gn/services/science.scm | |
| parent | 3f8c84a33d18f932788c1132df35511d989879c1 (diff) | |
| download | guix-bioinformatics-8a00f84b33900a454c3b0822f412834ea7df5d8f.tar.gz | |
octopus config changes
Diffstat (limited to 'gn/services/science.scm')
| -rw-r--r-- | gn/services/science.scm | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/gn/services/science.scm b/gn/services/science.scm index 1a25382..a28f7c5 100644 --- a/gn/services/science.scm +++ b/gn/services/science.scm @@ -48,11 +48,11 @@ (with-imported-modules '((guix build utils)) #~(begin (define %user (getpw "munge")) - (let* ((homedir (passwd:dir %user)) - (key #$(munge-configuration-key config)) - (etc-dir (dirname key)) - (run-dir (dirname #$(munge-configuration-pid-file config))) - (log-dir (dirname #$(munge-configuration-log-file config)))) + (let* ((homedir (passwd:dir %user)) + (key #$(munge-configuration-key config)) + (etc-dir (dirname key)) + (run-dir (dirname #$(munge-configuration-pid-file config))) + (log-dir (dirname #$(munge-configuration-log-file config)))) (for-each (lambda (dir) (unless (file-exists? dir) (mkdir-p dir)) @@ -176,7 +176,7 @@ (slurm-conf-file slurm-configuration-slurm-conf-file (default "/etc/slurm/slurm.conf")) (SlurmdLogFile slurm-configuration-slurmd-log-file - (default #f)) ; #f for syslog + (default #f)) ; #f for syslog (SlurmdPidFile slurm-configuration-slurmd-pidfile (default "/var/run/slurmd.pid")) @@ -186,7 +186,7 @@ (run-slurmctld? slurm-configuration-run-slurmctld (default #f)) (SlurmctldLogFile slurm-configuration-slurmctld-log-file - (default #f)) ; #f for syslog + (default #f)) ; #f for syslog (SlurmctldPidFile slurm-configuration-slurmctld-pidfile (default "/var/run/slurmctld.pid")) @@ -233,12 +233,12 @@ #$(slurm-configuration-slurmd-spooldir config)) (format port "SlurmdPidFile=~a\n" #$(slurm-configuration-slurmd-pidfile config)) - (if #$(slurm-configuration-slurmd-log-file config) + (when #$(slurm-configuration-slurmd-log-file config) (format port "SlurmdLogFile=~a\n" #$(slurm-configuration-slurmd-log-file config))) (format port "SlurmctldPidFile=~a\n" #$(slurm-configuration-slurmctld-pidfile config)) - (if #$(slurm-configuration-slurmctld-log-file config) + (when #$(slurm-configuration-slurmctld-log-file config) (format port "SlurmctldLogFile=~a\n" #$(slurm-configuration-slurmctld-log-file config))) (format port "SlurmUser=~a\n" |