mirror of
https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git
synced 2025-04-29 21:58:36 +02:00
63 lines
1.5 KiB
Scheme
63 lines
1.5 KiB
Scheme
(define-module (glicid system file-systems)
|
|
#:use-module (gnu system file-systems)
|
|
#:export (%cgroups)
|
|
)
|
|
|
|
(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")
|
|
(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 )
|
|
)
|