bugsnag-haskell-0.0.4.2: src/Network/Bugsnag/Thread.hs

module Network.Bugsnag.Thread
    ( BugsnagThread(..)
    , bugsnagThread
    ) where

import Prelude

import Data.Aeson
import Data.Aeson.Ext
import Data.Text (Text)
import GHC.Generics
import Network.Bugsnag.StackFrame

data BugsnagThread = BugsnagThread
    { btId :: Maybe Text
    , btName :: Maybe Text
    , btStacktrace :: Maybe [BugsnagStackFrame]
    }
    deriving stock Generic

instance ToJSON BugsnagThread where
    toJSON = genericToJSON $ bsAesonOptions "bt"
    toEncoding = genericToEncoding $ bsAesonOptions "bt"

bugsnagThread :: BugsnagThread
bugsnagThread =
    BugsnagThread { btId = Nothing, btName = Nothing, btStacktrace = Nothing }