mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-10 08:30:39 +02:00
Code Releases 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
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
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."