patrol-0.0.1: src/lib/Patrol/Type/Level.hs

module Patrol.Type.Level
  ( Level(..)
  ) where

import qualified Data.Aeson as Aeson

-- | <https://develop.sentry.dev/sdk/event-payloads/#optional-attributes>
data Level
  = Fatal
  | Error
  | Warning
  | Info
  | Debug
  deriving (Eq, Show)

instance Aeson.ToJSON Level where
  toJSON level = Aeson.toJSON $ case level of
    Fatal -> "fatal"
    Error -> "error"
    Warning -> "warning"
    Info -> "info"
    Debug -> "debug"