--- Begin Message ---
Subject: |
[PATCH] gnu: system: Make old-style swap use default flags |
Date: |
Tue, 23 Nov 2021 17:56:46 +0000 |
* gnu/services/base.scm (swap-service-type): Fix it.
---
gnu/services/base.scm | 6 ++++--
1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/gnu/services/base.scm b/gnu/services/base.scm
index 20736eb13f..ba01f5d764 100644
--- a/gnu/services/base.scm
+++ b/gnu/services/base.scm
@@ -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))
--
2.33.1
--- End Message ---
--- Begin Message ---
Subject: |
Re: [PATCH] gnu: system: Make old-style swap use default flags |
Date: |
Tue, 23 Nov 2021 18:08:46 +0000 |
Pushed as d48b404cf577cbfcd29b294e193a4db0c3e580b1 by Tobias.
Sorry for this omission, I wonder how that got past my tests. Maybe
`guix system vm` removes swap-devices?
Best,
Josselin Poiret
--- End Message ---