[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
02/05: file-systems: Subsystem cgroups now depend on /sys/fs/cgroup.
From: |
Ludovic Courtès |
Subject: |
02/05: file-systems: Subsystem cgroups now depend on /sys/fs/cgroup. |
Date: |
Fri, 17 Jul 2015 22:25:50 +0000 |
civodul pushed a commit to branch master
in repository guix.
commit b78cad85d38efc4de3fa11651111dcf4b8467cdf
Author: Ludovic Courtès <address@hidden>
Date: Fri Jul 17 19:25:09 2015 +0200
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.
---
gnu/system/file-systems.scm | 35 ++++++++++++++++++++---------------
1 files changed, 20 insertions(+), 15 deletions(-)
diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm
index a3230dc..003eb44 100644
--- a/gnu/system/file-systems.scm
+++ b/gnu/system/file-systems.scm
@@ -237,21 +237,26 @@ UUID representation."
(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"))))
+ (let ((parent (file-system
+ (device "cgroup")
+ (mount-point "/sys/fs/cgroup")
+ (type "tmpfs")
+ (check? #f))))
+ (cons parent
+ (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)
+
+ ;; This must be mounted after, and unmounted before the
+ ;; parent directory.
+ (dependencies (list parent))))
+ '("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