me
/
guix
Archived
1
0
Fork 0
Code

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

* 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>
master
Josselin Poiret 2021-11-23 17:56:46 +00:00 committed by Tobias Geerinckx-Rice
parent 8452c5d1f4
commit d48b404cf5
No known key found for this signature in database
GPG Key ID: 0DB0FF884F556D79
1 changed files with 4 additions and 2 deletions
Show Stats 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))