{-# LINE 1 "libraries/ghc-heap/GHC/Exts/Heap/ProfInfo/PeekProfInfo_ProfilingEnabled.hsc" #-} {-# LANGUAGE DeriveGeneric #-} {-# LANGUAGE MagicHash #-} module GHC.Exts.Heap.ProfInfo.PeekProfInfo_ProfilingEnabled( peekStgTSOProfInfo , peekTopCCS ) where {-# LINE 163 "libraries/ghc-heap/GHC/Exts/Heap/ProfInfo/PeekProfInfo_ProfilingEnabled.hsc" #-} import Prelude import Foreign import GHC.Exts.Heap.ProfInfo.Types peekStgTSOProfInfo :: (Ptr b -> IO (Maybe CostCentreStack)) -> Ptr a -> IO (Maybe StgTSOProfInfo) peekStgTSOProfInfo :: (Ptr b -> IO (Maybe CostCentreStack)) -> Ptr a -> IO (Maybe StgTSOProfInfo) peekStgTSOProfInfo Ptr b -> IO (Maybe CostCentreStack) _ Ptr a _ = Maybe StgTSOProfInfo -> IO (Maybe StgTSOProfInfo) forall (m :: * -> *) a. Monad m => a -> m a return Maybe StgTSOProfInfo forall a. Maybe a Nothing peekTopCCS :: Ptr a -> IO (Maybe CostCentreStack) peekTopCCS :: Ptr a -> IO (Maybe CostCentreStack) peekTopCCS Ptr a _ = Maybe CostCentreStack -> IO (Maybe CostCentreStack) forall (m :: * -> *) a. Monad m => a -> m a return Maybe CostCentreStack forall a. Maybe a Nothing {-# LINE 174 "libraries/ghc-heap/GHC/Exts/Heap/ProfInfo/PeekProfInfo_ProfilingEnabled.hsc" #-}