diff options
author | Richard W.M. Jones <rjones@redhat.com> | 2012-04-01 19:57:41 +0100 |
---|---|---|
committer | Richard W.M. Jones <rjones@redhat.com> | 2012-04-01 19:57:41 +0100 |
commit | 65e20e34dd7eecb234d75bfcb0c4b5aab7972583 (patch) | |
tree | b9127c35afacffd3d30ab2ce40cb9f19b00221f7 /sysprep/sysprep_operation.ml | |
parent | 64550dcad224cb48021f12de07d638181c6b295c (diff) | |
download | libguestfs-65e20e34dd7eecb234d75bfcb0c4b5aab7972583.tar.gz libguestfs-65e20e34dd7eecb234d75bfcb0c4b5aab7972583.tar.xz libguestfs-65e20e34dd7eecb234d75bfcb0c4b5aab7972583.zip |
sysprep: Add some debug code when performing operations.
Diffstat (limited to 'sysprep/sysprep_operation.ml')
-rw-r--r-- | sysprep/sysprep_operation.ml | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/sysprep/sysprep_operation.ml b/sysprep/sysprep_operation.ml index 316b35be..3fd8afc7 100644 --- a/sysprep/sysprep_operation.ml +++ b/sysprep/sysprep_operation.ml @@ -178,6 +178,11 @@ let perform_operations ?operations g root = | Some opset -> (* just the operation names listed *) OperationSet.elements opset in - let flags = List.map (fun op -> op.perform g root) ops in + let flags = + List.map ( + fun op -> + (* eprintf "calling %S.perform g %S\n" op.name root; *) + op.perform g root + ) ops in List.flatten flags |