Frame.hs

module Patrol.Type.Frame where

import qualified Data.Aeson as Aeson
import qualified Data.Map as Map
import qualified Data.Text as Text
import qualified GHC.Stack as Stack
import qualified Patrol.Extra.Aeson as Aeson
import qualified Patrol.Type.Platform as Platform

-- | <https://develop.sentry.dev/sdk/event-payloads/types/#frame>
data Frame = Frame
  { absPath :: Text.Text,
    addrMode :: Text.Text,
    colno :: Maybe Int,
    contextLine :: Text.Text,
    filename :: Text.Text,
    function :: Text.Text,
    imageAddr :: Text.Text,
    inApp :: Maybe Bool,
    instructionAddr :: Text.Text,
    lineno :: Maybe Int,
    module_ :: Text.Text,
    package :: Text.Text,
    platform :: Maybe Platform.Platform,
    postContext :: [Text.Text],
    preContext :: [Text.Text],
    rawFunction :: Text.Text,
    stackStart :: Maybe Bool,
    symbolAddr :: Text.Text,
    vars :: Map.Map Text.Text Aeson.Value
  }
  deriving (Eq, Show)

instance Aeson.ToJSON Frame where
  toJSON frame =
    Aeson.intoObject
      [ Aeson.pair "abs_path" $ absPath frame,
        Aeson.pair "addr_mode" $ addrMode frame,
        Aeson.pair "colno" $ colno frame,
        Aeson.pair "context_line" $ contextLine frame,
        Aeson.pair "filename" $ filename frame,
        Aeson.pair "function" $ function frame,
        Aeson.pair "image_addr" $ imageAddr frame,
        Aeson.pair "in_app" $ inApp frame,
        Aeson.pair "instruction_addr" $ instructionAddr frame,
        Aeson.pair "lineno" $ lineno frame,
        Aeson.pair "module" $ module_ frame,
        Aeson.pair "package" $ package frame,
        Aeson.pair "platform" $ platform frame,
        Aeson.pair "post_context" $ postContext frame,
        Aeson.pair "pre_context" $ preContext frame,
        Aeson.pair "raw_function" $ rawFunction frame,
        Aeson.pair "stack_start" $ stackStart frame,
        Aeson.pair "symbol_addr" $ symbolAddr frame,
        Aeson.pair "vars" $ vars frame
      ]

empty :: Frame
empty =
  Frame
    { absPath = Text.empty,
      addrMode = Text.empty,
      colno = Nothing,
      contextLine = Text.empty,
      filename = Text.empty,
      function = Text.empty,
      imageAddr = Text.empty,
      inApp = Nothing,
      instructionAddr = Text.empty,
      lineno = Nothing,
      module_ = Text.empty,
      package = Text.empty,
      platform = Nothing,
      postContext = [],
      preContext = [],
      rawFunction = Text.empty,
      stackStart = Nothing,
      symbolAddr = Text.empty,
      vars = Map.empty
    }

fromSrcLoc :: Stack.SrcLoc -> Frame
fromSrcLoc srcLoc =
  empty
    { colno = Just $ Stack.srcLocStartCol srcLoc,
      filename = Text.pack $ Stack.srcLocFile srcLoc,
      lineno = Just $ Stack.srcLocStartLine srcLoc,
      module_ = Text.pack $ Stack.srcLocModule srcLoc,
      package = Text.pack $ Stack.srcLocPackage srcLoc
    }