Severity.hs

module Data.Bugsnag.Types.Severity
  ( Severity (..)
  , exampleSeverity
  ) where

import Data.Bugsnag.Types.Prelude

-- | The severity of the error
--
-- -   @error@ - The default for unhandled errors.
--
-- -   @warning@ - The default when Bugsnag.notify is called.
--
-- -   @info@ - Can be used in manual Bugsnag.notify calls.
data Severity
  = Error
  | Warning
  | Info
  deriving stock (Bounded, Enum, Eq, Show, Generic)

instance FromJSON Severity where
  parseJSON = genericParseJSON aesonOptions

instance ToJSON Severity where
  toJSON = genericToJSON aesonOptions
  toEncoding = genericToEncoding aesonOptions

exampleSeverity :: Severity
exampleSeverity = Error