ReplayAudit.hs

-- @generated by keiro-dsl 0.17.0.0 (language keiro-dsl 6) from context incident-response replay-audit assembly; do not edit.
--
-- Deployment contract:
--   * replay-neutral diff: no data audit is required;
--   * affected diff: run AuditTargeted with the emitted affected set
--     against a production copy under the candidate binary;
--   * one-time runtime cutover: run AuditFull;
--   * any non-zero audit exit blocks deployment.
module Generated.IncidentResponse.ReplayAudit (auditTargets) where

import Generated.IncidentResponse.Escalation.EventStream qualified as Escalation
import Generated.IncidentResponse.Incident.EventStream qualified as Incident
import Keiro.ReplayAudit (AuditTarget (..), SomeAuditTarget (..), streamInCategory)
import Keiro.Stream qualified as Stream

auditTargets :: [SomeAuditTarget]
auditTargets =
  [ SomeAuditTarget
      AuditTarget
        { eventStream = Escalation.escalationEventStream
        , category = Stream.categoryText Escalation.escalationCategory
        , mkStream = streamInCategory (Stream.categoryText Escalation.escalationCategory)
        }
  , SomeAuditTarget
      AuditTarget
        { eventStream = Incident.incidentEventStream
        , category = Stream.categoryText Incident.incidentCategory
        , mkStream = streamInCategory (Stream.categoryText Incident.incidentCategory)
        }
  ]