diff options
Diffstat (limited to 'libraries')
-rw-r--r-- | libraries/base/GHC/RTS/Flags.hsc | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/libraries/base/GHC/RTS/Flags.hsc b/libraries/base/GHC/RTS/Flags.hsc index b23ae34165..2130ee1aaa 100644 --- a/libraries/base/GHC/RTS/Flags.hsc +++ b/libraries/base/GHC/RTS/Flags.hsc @@ -288,7 +288,6 @@ data ProfFlags = ProfFlags { doHeapProfile :: DoHeapProfile , heapProfileInterval :: RtsTime -- ^ time between samples , heapProfileIntervalTicks :: Word -- ^ ticks between samples (derived) - , includeTSOs :: Bool , showCCSOnException :: Bool , maxRetainerSetSize :: Word , ccsLength :: Word @@ -585,8 +584,6 @@ getProfFlags = do <*> #{peek PROFILING_FLAGS, heapProfileInterval} ptr <*> #{peek PROFILING_FLAGS, heapProfileIntervalTicks} ptr <*> (toBool <$> - (#{peek PROFILING_FLAGS, includeTSOs} ptr :: IO CBool)) - <*> (toBool <$> (#{peek PROFILING_FLAGS, showCCSOnException} ptr :: IO CBool)) <*> #{peek PROFILING_FLAGS, maxRetainerSetSize} ptr <*> #{peek PROFILING_FLAGS, ccsLength} ptr |