installer: parted: Use the swap-space record.

* gnu/installer/parted.scm (user-partitions->configuration): Use the swap-space record.
2021-12-01 20:59:06 +01:00 · 2021-12-01 20:59:06 +01:00 · d64b78ef0c
commit d64b78ef0c
parent 05c747ea6b
1 changed files with 5 additions and 3 deletions
--- 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