    {-# 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