[Libguestfs] [PATCH v2 03/13] resize: introduce partition type
Signed-off-by: Hu Tao <hutao(a)cn.fujitsu.com>
---
resize/resize.ml | 3 +++
1 file changed, 3 insertions(+)
diff --git a/resize/resize.ml b/resize/resize.ml
index 794a574..e69e486 100644
--- a/resize/resize.ml
+++ b/resize/resize.ml
@@ -73,6 +73,9 @@ and partition_id =
| MBR_ID of int (* MBR ID. *)
| GPT_Type of string (* GPT UUID. *)
+type partition_type =
+ | PrimaryPartition
+
let rec debug_partition p =
eprintf "%s:\n" p.p_name;
eprintf "\tpartition data: %ld %Ld-%Ld (%Ld bytes)\n"
--
1.9.3