diff options
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 |