From 20b0ff752345ab5d9c90dba61549cc836cddda52 Mon Sep 17 00:00:00 2001
From: JEAN-FRANCOIS GUILLAUME <mrbear@yam-it.net>
Date: Wed, 8 Dec 2021 15:14:47 +0100
Subject: [PATCH] wrong config

---
 glicid/services/file-systems.scm |  3 +++
 glicid/services/parallel.scm     | 16 ++++++++++++----
 2 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/glicid/services/file-systems.scm b/glicid/services/file-systems.scm
index 852420a..f9c1d4d 100644
--- a/glicid/services/file-systems.scm
+++ b/glicid/services/file-systems.scm
@@ -24,6 +24,9 @@
 (define-record-type* <autofs-configuration>
   autofs-configuration make-autofs-configuration
   autofs-configuration?
+  (autofs autofs-configuration-autofs
+    (default autofs)
+  )
   (config-file autofs-config-file
     (default %default-autofs-conf)
   )
diff --git a/glicid/services/parallel.scm b/glicid/services/parallel.scm
index caceca3..b683dd8 100644
--- a/glicid/services/parallel.scm
+++ b/glicid/services/parallel.scm
@@ -2,7 +2,6 @@
   #:use-module (gnu services)
   #:use-module (gnu services shepherd)
   #:use-module (guix)
-  #:use-module (guix gexp)
   #:use-module (guix records)
   #:use-module (ice-9 match)
   #:use-module (gnu packages parallel)
@@ -28,6 +27,9 @@
 (define-record-type* <munged-configuration>
   munged-configuration make-munged-configuration
   munged-configuration?
+  (munge munge-configuration-munge
+    (default munge)
+  )
   (key-file munged-key-file
     (default "/etc/munge/munged.key")
   )
@@ -38,7 +40,7 @@
 
 (define munged-service
   (match-lambda
-    (($ <munged-configuration> key-file log-file)
+    (($ <munged-configuration> munge key-file log-file)
       (list
         (shepherd-service
           (provision '(munged) )
@@ -79,6 +81,9 @@
 (define-record-type* <slurmdbd-configuration>
   slurmdbd-configuration make-slurmdbd-configuration
   slurmdbd-configuration?
+  (slurm slurm-configuration-slurm
+    (default slurm)
+  )
   (slurmdbd-conf slurmdbd-slurmdbd-conf
     (default "/etc/slurm/slurmdbd.conf")
   )
@@ -89,7 +94,7 @@
 
 (define slurmdbd-service
   (match-lambda
-    (($ <slurmdbd-configuration> slurmdbd-conf log-file)
+    (($ <slurmdbd-configuration> slurm slurmdbd-conf log-file)
       (list
         (shepherd-service
           (provision '(slurmdbd) )
@@ -129,6 +134,9 @@
 (define-record-type* <slurmctld-configuration>
   slurmctld-configuration make-slurmctld-configuration
   slurmctld-configuration?
+  (slurm slurm-configuration-slurm
+    (default slurm)
+  )
   (slurmctld-conf slurmctld-slurmctld-conf
     (default "/etc/slurm/slurmctld.conf")
   )
@@ -139,7 +147,7 @@
 
 (define slurmctld-service
   (match-lambda
-    (($ <slurmctld-configuration> slurmctld-conf log-file)
+    (($ <slurmctld-configuration> slurm slurmctld-conf log-file)
       (list
         (shepherd-service
           (provision '(slurmctld) )