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

---
 glicid/system/file-systems.scm | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)

diff --git a/glicid/system/file-systems.scm b/glicid/system/file-systems.scm
index 7ad8475..db0770d 100644
--- a/glicid/system/file-systems.scm
+++ b/glicid/system/file-systems.scm
@@ -5,6 +5,24 @@
 
 (define %cgroups
   (append (list
+    (file-system
+      (device "none")
+      (mount-point "/run/systemd")
+      (type "tmpfs")
+      (check? #f)
+      (flags '(no-suid no-dev no-exec))
+      (options "mode=0755")
+      (create-mount-point? #t)
+    )
+    (file-system
+      (device "none")
+      (mount-point "/run/user")
+      (type "tmpfs")
+      (check? #f)
+      (flags '(no-suid no-dev no-exec))
+      (options "mode=0755")
+      (create-mount-point? #t)
+    )
     (file-system
       (device "cgroup")
       (mount-point "/sys/fs/cgroup/hugetlb")
@@ -41,5 +59,6 @@
       (create-mount-point? #t)
       (dependencies (list (car %control-groups)))
     )
+    %control-groups
   ))
 )