Extend the Data.stat status to include complete

Signed-off-by: Mark Syms <[email protected]>

ocaml/xapi-storage/generator/lib/data.ml

@@ -240,6 +240,7 @@ module Data (R : RPC) = struct
   open R
 
   type copy_operation_v1 = string [@@deriving rpcty]
+
   type mirror_operation_v1 = string [@@deriving rpcty]
 
   (** The primary key for referring to a long-running operation. *)
@@ -259,7 +260,10 @@ module Data (R : RPC) = struct
   type status = {
       failed: bool
           (** [failed] will be set to true if the operation has failed for some
-        reason. *)
+              reason. *)
+    ; complete: bool
+          (** [complete] will be set true if the operation is complete, whether
+              successfully or not, see [failed]. *)
     ; progress: float option
           (** [progress] will be returned for a copy operation, and ranges
         between 0 and 1. *)