summary refs log tree commit diff
path: root/gnu/system/image.scm
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 /gnu/system/image.scm
parent9f530ef38a23caa1136f93cda45d396ce8fe1569 (diff)
downloadguix-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.
Diffstat (limited to 'gnu/system/image.scm')
-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))