Input.hs

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

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

data IncidentReactionInput
  = IncidentReported
      { incidentId :: !N.IncidentId
      , severity :: !N.Severity
      }
  | IncidentNoted
      { incidentId :: !N.IncidentId
      }
  deriving stock (Generic, Eq, Show)
  deriving anyclass (FromJSON, ToJSON)