patrol-0.1.0.1: source/library/Patrol/Type/Level.hs

module Patrol.Type.Level where

import qualified Data.Aeson as Aeson

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

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