diff options
| author | Mathieu Othacehe <othacehe@gnu.org> | 2021-12-01 20:59:06 +0100 |
|---|---|---|
| committer | Mathieu Othacehe <othacehe@gnu.org> | 2021-12-01 20:59:06 +0100 |
| commit | d64b78ef0c5a8850fdd1626034a5b152a0be9bcc (patch) | |
| tree | ac63a845a7167629459d4cbd25585059db5668d5 /gnu/installer/parted.scm | |
| parent | 05c747ea6bdffd6b9c425c7f8b3d3860ae3d7861 (diff) | |
| download | guix-d64b78ef0c5a8850fdd1626034a5b152a0be9bcc.tar.gz guix-d64b78ef0c5a8850fdd1626034a5b152a0be9bcc.zip | |
installer: parted: Use the swap-space record.
* gnu/installer/parted.scm (user-partitions->configuration): Use the
swap-space record.
Diffstat (limited to 'gnu/installer/parted.scm')
| -rw-r--r-- | gnu/installer/parted.scm | 8 |
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 |