ReplayAudit.hs

{-# LANGUAGE GADTs #-}
-- @generated by keiro-dsl 0.8.0.0 (language keiro-dsl 4) from context surge-demo 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.SurgeDemo.ReplayAudit (auditTargets) where

import Generated.SurgeDemo.Surge.EventStream qualified as Surge
import Generated.SurgeDemo.Hospital.EventStream qualified as Hospital
import Keiro.ReplayAudit (AuditTarget (..), SomeAuditTarget (..), streamInCategory)
import Keiro.Stream qualified as Stream

auditTargets :: [SomeAuditTarget]
auditTargets =
  [ SomeAuditTarget
      AuditTarget
        { eventStream = Surge.surgeEventStream
        , category = Stream.categoryText Surge.surgeCategory
        , mkStream = streamInCategory (Stream.categoryText Surge.surgeCategory)
        }
  , SomeAuditTarget
      AuditTarget
        { eventStream = Hospital.hospitalEventStream
        , category = Stream.categoryText Hospital.hospitalCategory
        , mkStream = streamInCategory (Stream.categoryText Hospital.hospitalCategory)
        }
  ]