Signed-off-by: Rok Strnisa <[email protected]>
ocaml/idl/api_messages.ml | 8 +++----- 1 files changed, 3 insertions(+), 5 deletions(-)
# HG changeset patch # User Rok Strnisa <[email protected]> # Date 1284119556 -3600 # Node ID 2f1497c0fa4511fb718e08ced2f85ca7be516541 # Parent 91dd24016ff59b8bc7106841af3e5b90de9b5bfa CA-44022: HOST_SYNC_DATA_FAILED message needs to be restored --- FIXED. Signed-off-by: Rok Strnisa <[email protected]> diff --git a/ocaml/idl/api_messages.ml b/ocaml/idl/api_messages.ml --- a/ocaml/idl/api_messages.ml +++ b/ocaml/idl/api_messages.ml @@ -14,8 +14,8 @@ let msgList = ref [] let addMessage x = - let _ = msgList := x::!msgList in - x + let _ = msgList := x::!msgList in + x let license_does_not_support_pooling = addMessage "LICENSE_DOES_NOT_SUPPORT_POOLING" (* Fired by license-check.py *) @@ -58,7 +58,7 @@ let vm_suspended = addMessage "VM_SUSPEN let vm_resumed = addMessage "VM_RESUMED" let vm_crashed = addMessage "VM_CRASHED" let vm_cloned = addMessage "VM_CLONED" - +let host_sync_data_failed = addMessage "HOST_SYNC_DATA_FAILED" (* Kept for backward compatibility. *) let host_clock_skew_detected = addMessage "HOST_CLOCK_SKEW_DETECTED" let host_clock_skew_detected_priority = 10L let host_clock_went_backwards = addMessage "HOST_CLOCK_WENT_BACKWARDS" @@ -100,5 +100,3 @@ let vmpp_backup_missed_event = addMessag let vmpp_archive_missed_event = addMessage "VMPP_ARCHIVE_MISSED_EVENT" (*'A scheduled archive event was missed due to another on-going scheduled archive run. This is unexpected behaviour, please re-configure your archive sub-policy'*) let vmpp_backup_failed = addMessage "VMPP_BACKUP_FAILED" (*'The snapshot phase of the protection policy failed.'*) let vmpp_snapshot_archive_already_exists = addMessage "VMPP_SNAPSHOT_ARCHIVE_ALREADY_EXISTS" (*'Failed to archive the snapshot, it has already been archived on the specified target'*) - -
_______________________________________________ xen-api mailing list [email protected] http://lists.xensource.com/mailman/listinfo/xen-api
