diff options
| author | David Thompson <davet@gnu.org> | 2015-06-18 20:40:57 -0400 |
|---|---|---|
| committer | David Thompson <davet@gnu.org> | 2015-06-19 07:49:18 -0400 |
| commit | 727636aaf88db0de3c918dcd84c907e6407f8f50 (patch) | |
| tree | c8df15c0a140b2764af61af82862a62b0a1dc062 /gnu | |
| parent | 5fd77f3f437e9a648adc18efa8eb753b17915c9e (diff) | |
| download | gnu-guix-727636aaf88db0de3c918dcd84c907e6407f8f50.tar gnu-guix-727636aaf88db0de3c918dcd84c907e6407f8f50.tar.gz | |
gnu: Add control group file systems.
* gnu/system/file-systems.scm (%control-groups): New variable.
(%base-file-system): Include control group file systems.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/system/file-systems.scm | 27 |
1 files changed, 23 insertions, 4 deletions
diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm index db861baed2..05c77fe3e8 100644 --- a/gnu/system/file-systems.scm +++ b/gnu/system/file-systems.scm @@ -39,6 +39,7 @@ %pseudo-terminal-file-system %devtmpfs-file-system %immutable-store + %control-groups %base-file-systems @@ -152,13 +153,31 @@ file system." (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)) |