me
/
guix
Archived
1
0
Fork 0
Code

installer: parted: Use the swap-space record. 

* gnu/installer/parted.scm (user-partitions->configuration): Use the
swap-space record.
master
Mathieu Othacehe 2021-12-01 20:59:06 +01:00
parent 05c747ea6b
commit d64b78ef0c
No known key found for this signature in database
GPG Key ID: 8354763531769CA6
1 changed files with 5 additions and 3 deletions
Show Stats 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) (let* ((uuids (map (lambda (file)
(uuid->string (read-partition-uuid file))) (uuid->string (read-partition-uuid file)))
swap-devices))) swap-devices)))
`((swap-devices (list ,@(map (lambda (uuid) `((swap-devices
`(uuid ,uuid)) (list ,@(map (lambda (uuid)
uuids)))))) `(swap-space
(target (uuid ,uuid))))
uuids))))))
,@(if (null? encrypted-partitions) ,@(if (null? encrypted-partitions)
'() '()
`((mapped-devices `((mapped-devices