file-systems: Subsystem cgroups now depend on /sys/fs/cgroup.
* gnu/system/file-systems.scm (%control-groups): Define 'parent' variable. Initialize the 'dependencies' field for all the subsystems.
This commit is contained in:
parent
e51710d1ef
commit
b78cad85d3
@ -237,11 +237,12 @@ (define %immutable-store
|
||||
(flags '(read-only bind-mount))))
|
||||
|
||||
(define %control-groups
|
||||
(cons (file-system
|
||||
(let ((parent (file-system
|
||||
(device "cgroup")
|
||||
(mount-point "/sys/fs/cgroup")
|
||||
(type "tmpfs")
|
||||
(check? #f))
|
||||
(check? #f))))
|
||||
(cons parent
|
||||
(map (lambda (subsystem)
|
||||
(file-system
|
||||
(device "cgroup")
|
||||
@ -249,9 +250,13 @@ (define %control-groups
|
||||
(type "cgroup")
|
||||
(check? #f)
|
||||
(options subsystem)
|
||||
(create-mount-point? #t)))
|
||||
(create-mount-point? #t)
|
||||
|
||||
;; This must be mounted after, and unmounted before the
|
||||
;; parent directory.
|
||||
(dependencies (list parent))))
|
||||
'("cpuset" "cpu" "cpuacct" "memory" "devices" "freezer"
|
||||
"blkio" "perf_event" "hugetlb"))))
|
||||
"blkio" "perf_event" "hugetlb")))))
|
||||
|
||||
(define %base-file-systems
|
||||
;; List of basic file systems to be mounted. Note that /proc and /sys are
|
||||
|
Loading…
Reference in New Issue
Block a user