Values.DisruptionComplianceSourceDefines the compliance against the resiliency policy for a disruption.
type nonrec t = {achievableRpoInSecs : Seconds.t option;The Recovery Point Objective (RPO) that is achievable, in seconds.
*)achievableRtoInSecs : Seconds.t option;The Recovery Time Objective (RTO) that is achievable, in seconds
*)complianceStatus : ComplianceStatus.t option;The current status of compliance for the resiliency policy.
*)currentRpoInSecs : Seconds.t option;The current RPO, in seconds.
*)currentRtoInSecs : Seconds.t option;The current RTO, in seconds.
*)message : String500.t option;The disruption compliance message.
*)rpoDescription : String500.t option;The RPO description.
*)rpoReferenceId : String500.t option;Reference identifier of the RPO .
*)rtoDescription : String500.t option;The RTO description.
*)rtoReferenceId : String500.t option;Reference identifier of the RTO.
*)}val make :
?achievableRpoInSecs:Seconds.t ->
?achievableRtoInSecs:Seconds.t ->
?complianceStatus:ComplianceStatus.t ->
?currentRpoInSecs:Seconds.t ->
?currentRtoInSecs:Seconds.t ->
?message:String500.t ->
?rpoDescription:String500.t ->
?rpoReferenceId:String500.t ->
?rtoDescription:String500.t ->
?rtoReferenceId:String500.t ->
unit ->
tval to_value :
t ->
[> `Structure of
(string
* [> `Enum of string | `Integer of Seconds.t | `String of String500.t ])
list ]