diff options
| author | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-08-14 00:32:53 +0200 |
|---|---|---|
| committer | Liliana Marie Prikler <liliana.prikler@gmail.com> | 2023-08-14 00:32:53 +0200 |
| commit | 51deacd8604b59aa434e944c73aecefd5183d13e (patch) | |
| tree | 7429b8652ce656f883e8277ec95e273d88fe0fe3 /gnu/system | |
| parent | 3349a50d700a2112a31ac4ce6cc6639d3b4cf1e2 (diff) | |
| parent | be6f5edd445850720dfcec2642db643b84fc0645 (diff) | |
| download | guix-51deacd8604b59aa434e944c73aecefd5183d13e.tar.gz guix-51deacd8604b59aa434e944c73aecefd5183d13e.zip | |
Merge branch 'master' into emacs-team
Diffstat (limited to 'gnu/system')
| -rw-r--r-- | gnu/system/file-systems.scm | 27 |
1 files changed, 7 insertions, 20 deletions
diff --git a/gnu/system/file-systems.scm b/gnu/system/file-systems.scm index 0ff5a0dcf6..95b757a698 100644 --- a/gnu/system/file-systems.scm +++ b/gnu/system/file-systems.scm @@ -445,26 +445,13 @@ TARGET in the other system." (flags '(read-only bind-mount no-atime)))) (define %control-groups - (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" "pids"))))) + ;; The cgroup2 file system. + (list (file-system + (device "none") + (mount-point "/sys/fs/cgroup") + (type "cgroup2") + (check? #f) + (create-mount-point? #f)))) (define %elogind-file-systems ;; We don't use systemd, but these file systems are needed for elogind, |