From 096a2bf8c59a955c634cc838e7f7111941c07b37 Mon Sep 17 00:00:00 2001
From: Ryan Sundberg <ryan@arctype.co>
Date: Thu, 4 Nov 2021 01:35:11 -0700
Subject: image: Support generating GPT images via `partition-table-type`.

* gnu/image.scm (<image>)[partition-table-type]: New field.
* gnu/system/image.scm: Implement partition-table-type logic for
genimage.

Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
---
 gnu/image.scm | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'gnu/image.scm')

diff --git a/gnu/image.scm b/gnu/image.scm
index 2381efa208..1c954af8cf 100644
--- a/gnu/image.scm
+++ b/gnu/image.scm
@@ -38,6 +38,7 @@
             image-platform
             image-size
             image-operating-system
+            image-partition-table-type
             image-partitions
             image-compression?
             image-volatile-root?
@@ -86,6 +87,8 @@
                       (default 'guess))
   (operating-system   image-operating-system  ;<operating-system>
                       (default #f))
+  (partition-table-type image-partition-table-type ; 'mbr or 'gpt
+                      (default 'mbr))
   (partitions         image-partitions ;list of <partition>
                       (default '()))
   (compression?       image-compression? ;boolean
-- 
cgit v1.2.3