From 121e8e9e7adabfebe162c9d9fc12eeb874380c4e Mon Sep 17 00:00:00 2001
From: JEAN-FRANCOIS GUILLAUME <mrbear@yam-it.net>
Date: Tue, 22 Nov 2022 15:15:43 +0100
Subject: [PATCH] reworking glicid cgroups

---
 glicid/system/file-systems.scm | 57 +++++++++++++++++++++-------------
 1 file changed, 35 insertions(+), 22 deletions(-)

diff --git a/glicid/system/file-systems.scm b/glicid/system/file-systems.scm
index 172b837..7ad8475 100644
--- a/glicid/system/file-systems.scm
+++ b/glicid/system/file-systems.scm
@@ -4,29 +4,42 @@
 )
 
 (define %cgroups
-  (let
-    ((parent (file-system
+  (append (list
+    (file-system
       (device "cgroup")
-      (mount-point "/sys/fs/cgroup")
-      (type "tmpfs")
+      (mount-point "/sys/fs/cgroup/hugetlb")
+      (type "cgroup")
       (check? #f)
-    )))
-    (cons parent
-      (map (lambda (subsystem)
-                    (file-system
-                      (device "cgroup")
-                      (mount-point (string-append "/sys/fs/cgroup/" subsystem))
-                      (type "cgroup")
-                      (check? #f)
-                      (options subsystem)
-                      (create-mount-point? #t)
-                      (dependencies (list parent))
-                    )
-          )
-          '("blkio" "cpu" "cpuacct" "cpuset" "devices" "freezer" "hugetlb"
-            "memory" "net_cls" "net_prio" "perf_event" "pids" "systemd")
-      )
+      (options "hugetlb")
+      (create-mount-point? #t)
+      (dependencies (list (car %control-groups)))
     )
-  )
+    (file-system
+      (device "cgroup")
+      (mount-point "/sys/fs/cgroup/net_cls")
+      (type "cgroup")
+      (check? #f)
+      (options "net_cls")
+      (create-mount-point? #t)
+      (dependencies (list (car %control-groups)))
+    )
+    (file-system
+      (device "cgroup")
+      (mount-point "/sys/fs/cgroup/net_prio")
+      (type "cgroup")
+      (check? #f)
+      (options "net_prio")
+      (create-mount-point? #t)
+      (dependencies (list (car %control-groups)))
+    )
+    (file-system
+      (device "cgroup")
+      (mount-point "/sys/fs/cgroup/systemd")
+      (type "cgroup")
+      (check? #f)
+      (options "none,name=systemd")
+      (create-mount-point? #t)
+      (dependencies (list (car %control-groups)))
+    )
+  ))
 )
-