summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2022-07-01 10:33:51 +0200
committerLudovic Courtès <ludo@gnu.org>2022-07-01 12:10:28 +0200
commited19bc87e4234144a05040aae75aee9a57e71f9b (patch)
tree84c2f53e43b2a32de5923f33b5723a3b81b42714
parent9f530ef38a23caa1136f93cda45d396ce8fe1569 (diff)
downloadguix-patches-ed19bc87e4234144a05040aae75aee9a57e71f9b.tar
guix-patches-ed19bc87e4234144a05040aae75aee9a57e71f9b.tar.gz
image: Avoid use of the deprecated 'gpt' option of genimage.
* gnu/system/image.scm (system-disk-image)[genimage-type-options]: Use 'partition-table-type' instead of the deprecated 'gpt' option.
-rw-r--r--gnu/system/image.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/gnu/system/image.scm b/gnu/system/image.scm
index 60ae38f6d8..e6e6917ecd 100644
--- a/gnu/system/image.scm
+++ b/gnu/system/image.scm
@@ -445,8 +445,8 @@ used in the image."
(define (genimage-type-options image-type image)
(cond
((equal? image-type "hdimage")
- (format #f "~%~/~/gpt = ~a~%~/"
- (if (gpt-image? image) "true" "false")))
+ (format #f "~%~/~/partition-table-type = \"~a\"~%~/"
+ (image-partition-table-type image)))
(else "")))
(let* ((format (image-format image))