adding making required directory by services

glicid/services/openldap.scm

@@ -62,14 +62,25 @@
   )
 )
 
+
+(define openldap-activation
+  (with-imported-modules '((guix build utils))
+    #~(begin
+        (use-modules (guix build utils))
+        (mkdir-p "/var/run/openldap")
+        (mkdir-p "/var/lib/ldap")
+        #t
+    )
+  )
+)
+
 (define openldap-service-type
   (service-type (name 'slapd)
     (extensions 
-      (list (
+      (list
-        service-extension
+        (service-extension shepherd-root-service-type openldap-shepherd-service)
-        shepherd-root-service-type
+        (service-extension activation-service-type openldap-activation)
-        openldap-shepherd-service
+      )
-      ))
     )
     (description "Run @uref{https://www.openldap.org, Openldap} community developped LDAP software.")
   )

glicid/services/parallel.scm

@@ -63,14 +63,24 @@
   )
 )
 
+(define munged-activation
+  (with-imported-modules '((guix build utils))
+    #~(begin
+        (use-modules (guix build utils))
+        (mkdir-p "/var/run/munge")
+        (mkdir-p "/var/lib/munge")
+        #t
+    )
+  )
+)
+
 (define munged-service-type
   (service-type (name 'munged)
     (extensions 
-      (list (
+      (list
-        service-extension
+        (service-extension shepherd-root-service-type munged-service)
-        shepherd-root-service-type
+        (service-extension activation-service-type munged-activation)
-        munged-service
+      )
-      ))
     )
     (description "Run munged")
   )
@@ -116,14 +126,25 @@
   )
 )
 
+(define slurmdbd-activation
+  (with-imported-modules '((guix build utils))
+    #~(begin
+        (use-modules (guix build utils))
+        (mkdir-p "/var/log/slurm")
+        (mkdir-p "/var/lib/slurm-archives")
+        (mkdir-p "/var/lib/slurm")
+        #t
+    )
+  )
+)
+
 (define slurmdbd-service-type
   (service-type (name 'slurmdbd)
     (extensions 
-      (list (
+      (list
-        service-extension
+        (service-extension shepherd-root-service-type slurmdbd-service)
-        shepherd-root-service-type
+        (service-extension activation-service-type slurmdbd-activation)
-        slurmdbd-service
+      )
-      ))
     )
     (description "Run slurmdbd")
   )
@@ -170,15 +191,27 @@
   )
 )
 
+(define slurmctld-activation
+  (with-imported-modules '((guix build utils))
+    #~(begin
+        (use-modules (guix build utils))
+        (mkdir-p "/var/log/slurm")
+        (mkdir-p "/var/lib/slurm-archives")
+        (mkdir-p "/var/lib/slurm")
+        #t
+    )
+  )
+)
+
 (define slurmctld-service-type
   (service-type (name 'slurmctld)
     (extensions 
-      (list (
+      (list
-        service-extension
+        (service-extension shepherd-root-service-type slurmctld-service)
-        shepherd-root-service-type
+        (service-extension activation-service-type slurmctld-activation)
-        slurmctld-service
+      )
-      ))
     )
     (description "Run slurmctld")
   )
 )
+