2022-05-14 19:10:12 +02:00
|
|
|
(define-module (glicid system file-systems)
|
2025-02-10 13:12:59 +01:00
|
|
|
#:use-module (gnu system file-systems)
|
|
|
|
|
)
|
2022-05-14 19:10:12 +02:00
|
|
|
|
2025-02-10 13:12:59 +01:00
|
|
|
(define-public %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")
|
|
|
|
|
(type "cgroup")
|
|
|
|
|
(check? #f)
|
|
|
|
|
(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)))
|
|
|
|
|
)
|
|
|
|
|
) %control-groups ))
|
