From acb6e8f344c547ebbca5cf0a8ee2303d65a538cf Mon Sep 17 00:00:00 2001 From: Pino Toscano Date: Fri, 5 Dec 2014 15:20:37 +0100 Subject: [PATCH] sysprep: add a "changed file" side effect --- 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 1531268c1..ec5e3743f 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 5d3b44af9..bed0266fc 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. *)