mirror of
https://git.in.rschanz.org/ryan77627/guix.git
synced 2024-12-24 05:18:07 -05:00
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>
This commit is contained in:
parent
8452c5d1f4
commit
d48b404cf5
1 changed files with 4 additions and 2 deletions
|
@ -2225,8 +2225,10 @@ (define device-lookup
|
|||
(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))
|
||||
|
|
Loading…
Reference in a new issue