[Libguestfs] [PATCH] sysprep: add a "changed file" side effect

[Pino Toscano]

---
 sysprep/sysprep_operation.ml  | 3 +++
 sysprep/sysprep_operation.mli | 2 ++
 2 files changed, 5 insertions(+)

diff --git a/sysprep/sysprep_operation.ml b/sysprep/sysprep_operation.ml
index 1531268..ec5e374 100644
--- a/sysprep/sysprep_operation.ml
+++ b/sysprep/sysprep_operation.ml
@@ -30,8 +30,11 @@ let info fs = info ~prog fs
 class filesystem_side_effects =
 object
   val mutable m_created_file = false
+  val mutable m_changed_file = false
   method created_file () = m_created_file <- true
   method get_created_file = m_created_file
+  method changed_file () = m_changed_file <- true
+  method get_changed_file = m_changed_file
 end
 
 class device_side_effects = object end
diff --git a/sysprep/sysprep_operation.mli b/sysprep/sysprep_operation.mli
index 5d3b44a..bed0266 100644
--- a/sysprep/sysprep_operation.mli
+++ b/sysprep/sysprep_operation.mli
@@ -26,6 +26,8 @@ val info : ('a, unit, string, unit) format4 -> 'a
 class filesystem_side_effects : object
   method created_file : unit -> unit
   method get_created_file : bool
+  method changed_file : unit -> unit
+  method get_changed_file : bool
 end
 (** The callback should indicate if it has side effects by calling
     methods in this class. *)
-- 
1.9.3