tribes/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2026-04-06 21:20:33 +02:00
Code Activity

installer: parted: Use the swap-space record.

Browse Source 
* gnu/installer/parted.scm (user-partitions->configuration): Use the
swap-space record.
This commit is contained in:
Mathieu Othacehe
2021-12-01 20:59:06 +01:00
parent 05c747ea6b
commit d64b78ef0c
1 changed files with 5 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
gnu/installer/parted.scm
View File

@@ -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