tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

system: hurd: Add swap-services to hurd-default-essential-services.

Browse Source 
* gnu/services/base.scm (swap-service-type): Do not include 'udev' requirement
for the Hurd.  Use system* with "swapon", "swapoff" for the Hurd.
* gnu/system.scm (hurd-default-essential-services): Add swap-services.
* gnu/services/base.scm (swap-service-type):

Change-Id: I1d4d445c614921752dc84aa0dd6ff42cdbf62aa8
This commit is contained in:
Janneke Nieuwenhuizen
2023-06-15 07:27:34 +02:00
committed by Jan (janneke) Nieuwenhuizen
parent 6dbfe1a118
commit a16c94446e
2 changed files with 20 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
gnu/system.scm
View File

@@ -845,11 +845,11 @@ bookkeeping."
(let ((host-name (operating-system-host-name os))
(hosts-file (%operating-system-hosts-file os))
(entries (operating-system-directory-base-entries os)))
(list (service system-service-type entries)
%boot-service
%hurd-startup-service
%activation-service
(service shepherd-root-service-type)
(cons* (service system-service-type entries)
%boot-service
%hurd-startup-service
%activation-service
(service shepherd-root-service-type)
(service user-processes-service-type)
;; Make sure that privileged-programs activation script
@@ -873,7 +873,8 @@ bookkeeping."
(list `("hosts" ,hosts-file)))
(service hosts-service-type
(local-host-entries host-name)))
(service profile-service-type (operating-system-packages os)))))
(service profile-service-type (operating-system-packages os))
(swap-services os))))
(define* (operating-system-services os)
"Return all the services of OS, including \"essential\" services."