{-# LINE 1 "libraries/ghc-heap/GHC/Exts/Heap/ProfInfo/PeekProfInfo_ProfilingDisabled.hsc" #-}
module GHC.Exts.Heap.ProfInfo.PeekProfInfo_ProfilingDisabled(
    peekStgTSOProfInfo
  , peekTopCCS
) where

import Prelude
import Foreign
import GHC.Exts.Heap.ProfInfo.Types

-- | This implementation is used when PROFILING is undefined.
-- It always returns 'Nothing', because there is no profiling info available.
peekStgTSOProfInfo :: (Ptr a -> IO (Maybe CostCentreStack)) -> Ptr tsoPtr -> IO (Maybe StgTSOProfInfo)
peekStgTSOProfInfo :: forall a tsoPtr.
(Ptr a -> IO (Maybe CostCentreStack))
-> Ptr tsoPtr -> IO (Maybe StgTSOProfInfo)
peekStgTSOProfInfo Ptr a -> IO (Maybe CostCentreStack)
_ Ptr tsoPtr
_ = Maybe StgTSOProfInfo -> IO (Maybe StgTSOProfInfo)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe StgTSOProfInfo
forall a. Maybe a
Nothing

peekTopCCS :: Ptr a -> IO (Maybe CostCentreStack)
peekTopCCS :: forall a. Ptr a -> IO (Maybe CostCentreStack)
peekTopCCS Ptr a
_ = Maybe CostCentreStack -> IO (Maybe CostCentreStack)
forall a. a -> IO a
forall (m :: * -> *) a. Monad m => a -> m a
return Maybe CostCentreStack
forall a. Maybe a
Nothing