Nominals.hs

{-# LANGUAGE DeriveAnyClass #-}
-- @generated by keiro-dsl 0.17.0.0 (language keiro-dsl 6) from context process-reactions generated nominal declarations; do not edit.
module Generated.ProcessReactions.Nominals
  ( IncidentId
  , parseIncidentId
  , mkIncidentId
  , incidentIdText
  , Severity (..)
  , severityText
  ) where

import Data.Aeson (FromJSON, ToJSON)
import Data.Text (Text)
import GHC.Generics (Generic)
import Keiki.Shape (CanonicalTypeName)
import Generated.ProcessReactions.Nominals.Internal (IncidentId, mkIncidentId, parseIncidentId, incidentIdText)



data Severity = Sev1 | Sev2
  deriving stock (Generic, Eq, Ord, Show, Enum, Bounded)
  deriving anyclass (ToJSON, FromJSON)

instance CanonicalTypeName Severity

severityText :: Severity -> Text
severityText = \case
  Sev1 -> "sev1"
  Sev2 -> "sev2"