diff options
Diffstat (limited to 'gnu')
| -rw-r--r-- | 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 a3230dce483..003eb443d15 100644 --- a/gnu/system/file-systems.scm +++ b/gnu/system/file-systems.scm | |||
| @@ -237,21 +237,26 @@ UUID representation." | |||
| 237 | (flags '(read-only bind-mount)))) | 237 | (flags '(read-only bind-mount)))) |
| 238 | 238 | ||
| 239 | (define %control-groups | 239 | (define %control-groups |
| 240 | (cons (file-system | 240 | (let ((parent (file-system |
| 241 | (device "cgroup") | 241 | (device "cgroup") |
| 242 | (mount-point "/sys/fs/cgroup") | 242 | (mount-point "/sys/fs/cgroup") |
| 243 | (type "tmpfs") | 243 | (type "tmpfs") |
| 244 | (check? #f)) | 244 | (check? #f)))) |
| 245 | (map (lambda (subsystem) | 245 | (cons parent |
| 246 | (file-system | 246 | (map (lambda (subsystem) |
| 247 | (device "cgroup") | 247 | (file-system |
| 248 | (mount-point (string-append "/sys/fs/cgroup/" subsystem)) | 248 | (device "cgroup") |
| 249 | (type "cgroup") | 249 | (mount-point (string-append "/sys/fs/cgroup/" subsystem)) |
| 250 | (check? #f) | 250 | (type "cgroup") |
| 251 | (options subsystem) | 251 | (check? #f) |
| 252 | (create-mount-point? #t))) | 252 | (options subsystem) |
| 253 | '("cpuset" "cpu" "cpuacct" "memory" "devices" "freezer" | 253 | (create-mount-point? #t) |
| 254 | "blkio" "perf_event" "hugetlb")))) | 254 | |
| 255 | ;; This must be mounted after, and unmounted before the | ||
| 256 | ;; parent directory. | ||
| 257 | (dependencies (list parent)))) | ||
| 258 | '("cpuset" "cpu" "cpuacct" "memory" "devices" "freezer" | ||
| 259 | "blkio" "perf_event" "hugetlb"))))) | ||
| 255 | 260 | ||
| 256 | (define %base-file-systems | 261 | (define %base-file-systems |
| 257 | ;; List of basic file systems to be mounted. Note that /proc and /sys are | 262 | ;; List of basic file systems to be mounted. Note that /proc and /sys are |