From d0ade4c2ab6fbc48985d2a093faa059c7814b4c2 Mon Sep 17 00:00:00 2001
From: Yann Dupont <yann.dupont@univ-nantes.fr>
Date: Thu, 24 Nov 2022 15:20:13 +0100
Subject: [PATCH] add somme % defs

---
 glicid/services/parallel.scm | 21 +++++++++++++++++++--
 1 file changed, 19 insertions(+), 2 deletions(-)

diff --git a/glicid/services/parallel.scm b/glicid/services/parallel.scm
index 6de1068..6818d0c 100644
--- a/glicid/services/parallel.scm
+++ b/glicid/services/parallel.scm
@@ -27,7 +27,9 @@
                          slurmd-configuration?
                          slurmd-service
                          slurmd-service-type
-                         %slurm-accounts
+        		 %slurm-group
+        		 %slurm-account                 
+        		 %slurm-accounts
                          ))
 ;
 ; Munged
@@ -79,7 +81,7 @@
 ; Shared slurm account
 ;
 
-(define %slurm-accounts
+#!(define %slurm-accounts
   (list
     (user-group (name "slurm") (system? #t))
     (user-account
@@ -89,6 +91,21 @@
       (comment "slurm server user")
       (home-directory "/var/spool/slurm")
       (shell (file-append bash "/bin/bash")))))
+!#
+(define %slurm-group (user-group (name "slurm") (system? #t)))
+(define %slurm-account (user-account
+      (name "slurm")
+      (group "slurm")
+      (system? #t)
+      (comment "slurm server user")
+      (home-directory "/var/spool/slurm")
+      (shell (file-append bash "/bin/bash"))))
+
+(define %slurm-accounts
+  (list
+    %slurm-group %slurm-account))
+
+
 
 ;
 ; slurmdbd