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