From 1813825be722dd14d542782c5adbc847488f4583 Mon Sep 17 00:00:00 2001
From: JEAN-FRANCOIS GUILLAUME <mrbear@yam-it.net>
Date: Fri, 17 Dec 2021 11:09:24 +0100
Subject: [PATCH] adding making required directory by services

---
 glicid/services/openldap.scm |  4 ++--
 glicid/services/parallel.scm | 12 ++++++------
 2 files changed, 8 insertions(+), 8 deletions(-)

diff --git a/glicid/services/openldap.scm b/glicid/services/openldap.scm
index b1b704f..8cd4964 100644
--- a/glicid/services/openldap.scm
+++ b/glicid/services/openldap.scm
@@ -63,7 +63,7 @@
 )
 
 
-(define openldap-activation
+(define %openldap-activation
   (with-imported-modules '((guix build utils))
     #~(begin
         (use-modules (guix build utils))
@@ -79,7 +79,7 @@
     (extensions 
       (list
         (service-extension shepherd-root-service-type openldap-shepherd-service)
-        (service-extension activation-service-type openldap-activation)
+        (service-extension activation-service-type (const %openldap-activation))
       )
     )
     (description "Run @uref{https://www.openldap.org, Openldap} community developped LDAP software.")
diff --git a/glicid/services/parallel.scm b/glicid/services/parallel.scm
index b97f9f6..d2fa607 100644
--- a/glicid/services/parallel.scm
+++ b/glicid/services/parallel.scm
@@ -63,7 +63,7 @@
   )
 )
 
-(define munged-activation
+(define %munged-activation
   (with-imported-modules '((guix build utils))
     #~(begin
         (use-modules (guix build utils))
@@ -79,7 +79,7 @@
     (extensions 
       (list
         (service-extension shepherd-root-service-type munged-service)
-        (service-extension activation-service-type munged-activation)
+        (service-extension activation-service-type (const %munged-activation))
       )
     )
     (description "Run munged")
@@ -126,7 +126,7 @@
   )
 )
 
-(define slurmdbd-activation
+(define %slurmdbd-activation
   (with-imported-modules '((guix build utils))
     #~(begin
         (use-modules (guix build utils))
@@ -143,7 +143,7 @@
     (extensions 
       (list
         (service-extension shepherd-root-service-type slurmdbd-service)
-        (service-extension activation-service-type slurmdbd-activation)
+        (service-extension activation-service-type (const %slurmdbd-activation))
       )
     )
     (description "Run slurmdbd")
@@ -191,7 +191,7 @@
   )
 )
 
-(define slurmctld-activation
+(define %slurmctld-activation
   (with-imported-modules '((guix build utils))
     #~(begin
         (use-modules (guix build utils))
@@ -208,7 +208,7 @@
     (extensions 
       (list
         (service-extension shepherd-root-service-type slurmctld-service)
-        (service-extension activation-service-type slurmctld-activation)
+        (service-extension activation-service-type (const %slurmctld-activation))
       )
     )
     (description "Run slurmctld")