Types.hs

{-# LANGUAGE RecordWildCards #-}
module GHC.RTS.TimeAllocProfile.Types where
import Data.IntMap (IntMap)
import Data.Map (Map)
import Data.Monoid (mempty)
import Data.Text (Text)
import Data.Time (DiffTime, LocalTime)
import Data.Sequence (Seq)

-- | Top-level profiling report
data TimeAllocProfile = TimeAllocProfile
  { profileTimestamp :: LocalTime
  , profileCommandLine :: Text
  , profileTotalTime :: TotalTime
  , profileTotalAlloc :: TotalAlloc
  , profileHotCostCentres :: [BriefCostCentre]
  , profileCostCentreTree :: CostCentreTree
  } deriving Show

-- | @total time@ in the profiling reports
data TotalTime = TotalTime
  { totalTimeElapsed :: DiffTime
  -- ^ Total elapsed time in seconds
  , totalTimeTicks :: Integer
  -- ^ Total number of ticks
  , totalTimeResolution :: DiffTime
  -- ^ Duration of a tick
  , totalTimeProcessors :: Int
  -- ^ Number of processors
  } deriving Show

-- | @total alloc@ in the profiling reports
newtype TotalAlloc = TotalAlloc
  { totalAllocBytes :: Integer
  -- ^ Total memory allocation in bytes
  } deriving Show

data BriefCostCentre = BriefCostCentre
  { briefCostCentreName :: Text
  -- ^ Name of the cost-centre
  , briefCostCentreModule :: Text
  -- ^ Module name of the cost-centre
  , briefCostCentreTime :: Double
  -- ^ Total time spent in the cost-centre
  , briefCostCentreAlloc :: Double
  -- ^ Total allocation in the cost-centre
  , briefCostCentreTicks :: Maybe Integer
  -- ^ Total ticks in the cost-centre. This number exists only if
  -- @-P@ or @-Pa@ option is given at run-time.
  , briefCostCentreBytes :: Maybe Integer
  -- ^ Total memory allocation in the cost-centre. This number
  -- exists only if @-P@ or @-Pa@ option is given at run-time.
  } deriving Show

-- | Cost-centre node
data CostCentre = CostCentre
  { costCentreName :: Text
  -- ^ Name of the cost-centre
  , costCentreModule :: Text
  -- ^ Module name of the cost-centre
  , costCentreNo :: CostCentreNo
  -- ^ Identifier of the cost-centre
  , costCentreEntries :: Integer
  -- ^ Number of entries to the cost-centre
  , costCentreIndTime :: Double
  -- ^ Time spent in the cost-centre itself
  , costCentreIndAlloc :: Double
  -- ^ Allocation incurred by the cost-centre itself
  , costCentreInhTime :: Double
  -- ^ Time spent in the cost-centre's children
  , costCentreInhAlloc :: Double
  -- ^ Allocation incurred by the cost-centre's children
  , costCentreTicks :: Maybe Integer
  -- ^ Number of ticks in the cost-centre.
  , costCentreBytes :: Maybe Integer
  -- ^ Number of allocated bytes in the cost-centre.
  } deriving Show

type CostCentreNo = Int

data CostCentreTree = CostCentreTree
  { costCentreNodes :: !(IntMap CostCentre)
  , costCentreParents :: !(IntMap CostCentreNo)
  , costCentreChildren :: !(IntMap (Seq CostCentre))
  , costCentreCallSites :: !(Map (Text, Text) (Seq CostCentre))
  } deriving Show

emptyCostCentreTree :: CostCentreTree
emptyCostCentreTree = CostCentreTree
  { costCentreNodes = mempty
  , costCentreParents = mempty
  , costCentreChildren = mempty
  , costCentreCallSites = mempty
  }

data Callee = Callee
  { calleeName :: Text
  -- ^ Name of the callee function
  , calleeModule :: Text
  -- ^ Module name of the calle function
  , calleeEntries :: !Integer
  -- ^ Number of entries to the callee function
  , calleeTime :: !Double
  -- ^ Time spent in the callee function
  , calleeAlloc :: !Double
  -- ^ Allocation incurred by the callee function
  , calleeTicks :: !(Maybe Integer)
  -- ^ Number of ticks in the callee function
  , calleeBytes :: !(Maybe Integer)
  -- ^ Number of allocated bytes in the callee function
  } deriving Show

data CallSite = CallSite
  { callSiteCostCentre :: CostCentre
  -- ^ Metrics for the caller function
  , callSiteContribEntries :: !Integer
  -- ^ Number of entries contriubted by the caller function
  , callSiteContribTime :: !Double
  -- ^ Time contributed by the caller function
  , callSiteContribAlloc :: !Double
  -- ^ Allocation contributed by the caller function
  , callSiteContribTicks :: !(Maybe Integer)
  -- ^ Number of tikcs contributed by the caller function
  , callSiteContribBytes :: !(Maybe Integer)
  -- ^ Number of allocated bytes contributed byt hte caller function
  } deriving Show