From d64b78ef0c5a8850fdd1626034a5b152a0be9bcc Mon Sep 17 00:00:00 2001
From: Mathieu Othacehe <othacehe@gnu.org>
Date: Wed, 1 Dec 2021 20:59:06 +0100
Subject: [PATCH] installer: parted: Use the swap-space record.

* gnu/installer/parted.scm (user-partitions->configuration): Use the
swap-space record.
---
 gnu/installer/parted.scm | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/gnu/installer/parted.scm b/gnu/installer/parted.scm
index cbe676017b..fadac36208 100644
--- a/gnu/installer/parted.scm
+++ b/gnu/installer/parted.scm
@@ -1414,9 +1414,11 @@ USER-PARTITIONS, or return nothing."
             (let* ((uuids (map (lambda (file)
                                  (uuid->string (read-partition-uuid file)))
                                swap-devices)))
-              `((swap-devices (list ,@(map (lambda (uuid)
-                                             `(uuid ,uuid))
-                                           uuids))))))
+              `((swap-devices
+                 (list ,@(map (lambda (uuid)
+                                `(swap-space
+                                  (target (uuid ,uuid))))
+                              uuids))))))
       ,@(if (null? encrypted-partitions)
             '()
             `((mapped-devices