GLiCID/guix-glicid
7
0
Fork 0
mirror of https://gitlab.univ-nantes.fr/glicid-public/guix-glicid.git synced 2025-05-03 15:43:06 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

reformatting and cleaning repo

Browse source
This commit is contained in:
Jean-François GUILLAUME 2025-02-10 13:12:59 +01:00
parent 263fc568f0
commit dd9a55f327
42 changed files with 10407 additions and 11840 deletions
Download patch file Download diff file Expand all files Collapse all files

120
glicid/system/file-systems.scm
View file

@ -1,63 +1,61 @@
(define-module (glicid system file-systems)
#:use-module (gnu system file-systems)
#:export (%cgroups)
)
#:use-module (gnu system file-systems)
)
(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 )
)
(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 ))