module GHC.Types.HpcInfo
( HpcInfo (..)
, AnyHpcUsage
, emptyHpcInfo
, isHpcUsed
)
where
import GHC.Prelude
data HpcInfo
= HpcInfo
{ HpcInfo -> Int
hpcInfoTickCount :: Int
, HpcInfo -> Int
hpcInfoHash :: Int
}
| NoHpcInfo
{ HpcInfo -> AnyHpcUsage
hpcUsed :: AnyHpcUsage
}
type AnyHpcUsage = Bool
emptyHpcInfo :: AnyHpcUsage -> HpcInfo
emptyHpcInfo :: AnyHpcUsage -> HpcInfo
emptyHpcInfo = AnyHpcUsage -> HpcInfo
NoHpcInfo
isHpcUsed :: HpcInfo -> AnyHpcUsage
isHpcUsed :: HpcInfo -> AnyHpcUsage
isHpcUsed (HpcInfo {}) = AnyHpcUsage
True
isHpcUsed (NoHpcInfo { hpcUsed :: HpcInfo -> AnyHpcUsage
hpcUsed = AnyHpcUsage
used }) = AnyHpcUsage
used