blob: 0f574b4f0342abfdfce62e0836b556396476dd20 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
module GHC.Exts.Heap.ProfInfo.PeekProfInfo_ProfilingDisabled(
peekStgTSOProfInfo
) 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 tsoPtr -> IO (Maybe StgTSOProfInfo)
peekStgTSOProfInfo _ = return Nothing
|
