mirror/guix
mirror/guix
1
Fork 0
mirror of https://https.git.savannah.gnu.org/git/guix.git/ synced 2025-07-10 16:50:43 +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

14
gnu/services/base.scm
View file

@ -44,6 +44,7 @@
#:autoload (guix diagnostics) (warning formatted-message &fix-hint)
#:autoload (guix i18n) (G_)
#:use-module (guix combinators)
#:use-module (guix utils)
#:use-module (gnu services)
#:use-module (gnu services admin)
#:use-module (gnu services shepherd)
@ -2677,7 +2678,7 @@ NAME-udev-hardware."
(with-imported-modules (source-module-closure '((gnu build file-systems)))
(shepherd-service
(provision (list (swap->shepherd-service-name swap)))
(requirement `(udev ,@requirements))
(requirement `(,@(if (target-hurd?) '() '(udev)) ,@requirements))
(documentation "Enable the given swap space.")
(modules `((gnu build file-systems)
,@%default-modules))
@ -2685,16 +2686,21 @@ NAME-udev-hardware."
(let ((device #$device-lookup))
(and device
(begin
(restart-on-EINTR (swapon device
#$(if (target-hurd?)
#~(system* "swapon" device)
#~(restart-on-EINTR
(swapon device
#$(if (swap-space? swap)
(swap-space->flags-bit-mask
swap)
0)))
0))))
#t)))))
(stop #~(lambda _
(let ((device #$device-lookup))
(when device
(restart-on-EINTR (swapoff device)))
#$(if (target-hurd?)
#~(system* "swapoff" device)
#~(restart-on-EINTR (swapoff device))))
#f)))
(respawn? #f))))
(description "Turn on the virtual memory swap area.")))

5
gnu/system.scm
View file

@ -845,7 +845,7 @@ 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)
(cons* (service system-service-type entries)
%boot-service
%hurd-startup-service
%activation-service
@ -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."