mirror of
https://https.git.savannah.gnu.org/git/guix.git/
synced 2025-07-10 08:30:39 +02:00
system: hurd: Add swap-services to hurd-default-essential-services.
* 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:
parent
6dbfe1a118
commit
a16c94446e
2 changed files with 20 additions and 13 deletions
|
@ -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."
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue