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

gnu: system: Make old-style swap use default flags.

Browse Source 
* gnu/services/base.scm (swap-service-type): Use default flags (0) if
SWAP is not a new-style <swap-space> record.

Signed-off-by: Tobias Geerinckx-Rice <me@tobias.gr>
This commit is contained in:
Josselin Poiret
2021-11-23 17:56:46 +00:00
committed by Tobias Geerinckx-Rice
parent 8452c5d1f4
commit d48b404cf5
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
gnu/services/base.scm
View File

@@ -2225,8 +2225,10 @@ instance."
(and device
(begin
(restart-on-EINTR (swapon device
#$(swap-space->flags-bit-mask
swap)))
#$(if (swap-space? swap)
(swap-space->flags-bit-mask
swap)
0)))
#t)))))
(stop #~(lambda _
(let ((device #$device-lookup))