Input.hs

{-# LANGUAGE DeriveAnyClass #-}
-- @generated by keiro-dsl 0.17.0.0 (language keiro-dsl 6) from process input IncidentEscalation; do not edit.
module Generated.IncidentResponse.IncidentEscalation.Input (IncidentEscalationInput (..)) where

import Data.Aeson (FromJSON, ToJSON)
import Data.Time (UTCTime)
import GHC.Generics (Generic)
import Generated.IncidentResponse.Nominals qualified as N

data IncidentEscalationInput
  = IncidentReported
      { incidentId :: !N.IncidentId
      , severity :: !N.Severity
      , raisedAt :: !UTCTime
      }
  | ResponderAcked
      { incidentId :: !N.IncidentId
      , ackedAt :: !UTCTime
      }
  | ResponderIgnored
      { incidentId :: !N.IncidentId
      }
  | IncidentNoted
      { incidentId :: !N.IncidentId
      }
  deriving stock (Generic, Eq, Show)
  deriving anyclass (FromJSON, ToJSON)