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