aboutsummaryrefslogtreecommitdiff
path: root/gnu/installer
diff options
context:
space:
mode:
authorMathieu Othacehe <othacehe@gnu.org>2021-12-01 20:59:06 +0100
committerMathieu Othacehe <othacehe@gnu.org>2021-12-01 20:59:06 +0100
commitd64b78ef0c5a8850fdd1626034a5b152a0be9bcc (patch)
treeac63a845a7167629459d4cbd25585059db5668d5 /gnu/installer
parent05c747ea6bdffd6b9c425c7f8b3d3860ae3d7861 (diff)
downloadguix-d64b78ef0c5a8850fdd1626034a5b152a0be9bcc.tar
guix-d64b78ef0c5a8850fdd1626034a5b152a0be9bcc.tar.gz
installer: parted: Use the swap-space record.
* gnu/installer/parted.scm (user-partitions->configuration): Use the swap-space record.
Diffstat (limited to 'gnu/installer')
-rw-r--r--gnu/installer/parted.scm8
1 files 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