06/09: image: Avoid use of the deprecated 'gpt' option of genimage.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit ed19bc87e4234144a05040aae75aee9a57e71f9b
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Jul 1 10:33:51 2022 +0200

    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.
---
 gnu/system/image.scm | 4 ++--
 1 file 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))