~ruther/guix-local

d64b78ef0c5a8850fdd1626034a5b152a0be9bcc — Mathieu Othacehe 4 years ago 05c747e 
installer: parted: Use the swap-space record.

* gnu/installer/parted.scm (user-partitions->configuration): Use the
swap-space record.
patch browse .tar.gz .zip 
1 files changed, 5 insertions(+), 3 deletions(-)

M gnu/installer/parted.scm

M gnu/installer/parted.scm => gnu/installer/parted.scm +5 -3
@@ 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