[Libguestfs] [PATCH v2 11/13] resize: add function expand_partition_content

[Hu Tao]

Signed-off-by: Hu Tao <hutao at 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