gnu: Add control group file systems.

* gnu/system/file-systems.scm (%control-groups): New variable.
  (%base-file-system): Include control group file systems.
This commit is contained in:
David Thompson 2015-06-18 20:40:57 -04:00
parent 5fd77f3f43
commit 727636aaf8

View file

@ -39,6 +39,7 @@ (define-module (gnu system file-systems)
%pseudo-terminal-file-system
%devtmpfs-file-system
%immutable-store
%control-groups
%base-file-systems
@ -152,13 +153,31 @@ (define %immutable-store
(check? #f)
(flags '(read-only bind-mount))))
(define %control-groups
(cons (file-system
(device "cgroup")
(mount-point "/sys/fs/cgroup")
(type "tmpfs")
(check? #f))
(map (lambda (subsystem)
(file-system
(device "cgroup")
(mount-point (string-append "/sys/fs/cgroup/" subsystem))
(type "cgroup")
(check? #f)
(options subsystem)
(create-mount-point? #t)))
'("cpuset" "cpu" "cpuacct" "memory" "devices" "freezer"
"blkio" "perf_event" "hugetlb"))))
(define %base-file-systems
;; List of basic file systems to be mounted. Note that /proc and /sys are
;; currently mounted by the initrd.
(list %devtmpfs-file-system
%pseudo-terminal-file-system
%shared-memory-file-system
%immutable-store))
(append (list %devtmpfs-file-system
%pseudo-terminal-file-system
%shared-memory-file-system
%immutable-store)
%control-groups))