diff options
Diffstat (limited to 'libraries/base/GHC/Stack/CCS.hsc')
| -rw-r--r-- | libraries/base/GHC/Stack/CCS.hsc | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/libraries/base/GHC/Stack/CCS.hsc b/libraries/base/GHC/Stack/CCS.hsc index b62c80a473..d40d92dc91 100644 --- a/libraries/base/GHC/Stack/CCS.hsc +++ b/libraries/base/GHC/Stack/CCS.hsc @@ -26,6 +26,7 @@ module GHC.Stack.CCS ( CostCentre, getCurrentCCS, getCCSOf, + clearCCS, ccsCC, ccsParent, ccLabel, @@ -60,6 +61,9 @@ getCCSOf obj = IO $ \s -> case getCCSOf## obj s of (## s', addr ##) -> (## s', Ptr addr ##) +clearCCS :: IO a -> IO a +clearCCS (IO m) = IO $ \s -> clearCCS## m s + ccsCC :: Ptr CostCentreStack -> IO (Ptr CostCentre) ccsCC p = (# peek CostCentreStack, cc) p |