[Libguestfs] [PATCH v2 11/13] resize: add function expand_partition_content
Signed-off-by: Hu Tao <hutao(a)cn.fujitsu.com>
---
resize/resize.ml | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/resize/resize.ml b/resize/resize.ml
index 64697f9..3290ba0 100644
--- a/resize/resize.ml
+++ b/resize/resize.ml
@@ -1265,8 +1265,7 @@ read the man page virt-resize(1).
in
(* Expand partition content as required. *)
- List.iter (
- function
+ let expand_partition_content = function
| ({ p_operation = OpResize _ } as p)
when can_expand_content p.p_type ->
let source = p.p_name in
@@ -1282,7 +1281,8 @@ read the man page virt-resize(1).
do_expand_content target meth
| { p_operation = (OpCopy | OpIgnore | OpDelete | OpResize _) }
-> ()
- ) partitions;
+ in
+ List.iter expand_partition_content partitions;
(* Expand logical volume content as required. *)
List.iter (
--
1.9.3