diff options
Diffstat (limited to 'libraries/base/GHC/Stack.hsc')
| -rw-r--r-- | libraries/base/GHC/Stack.hsc | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libraries/base/GHC/Stack.hsc b/libraries/base/GHC/Stack.hsc index 611e5c9ba6..0aa4d1768d 100644 --- a/libraries/base/GHC/Stack.hsc +++ b/libraries/base/GHC/Stack.hsc @@ -12,7 +12,7 @@ -- -- Access to GHC's call-stack simulation -- --- /Since: 4.5.0.0/ +-- @since 4.5.0.0 ----------------------------------------------------------------------------- {-# LANGUAGE UnboxedTuples, MagicHash, NoImplicitPrelude #-} @@ -87,7 +87,7 @@ ccSrcSpan p = (# peek CostCentre, srcloc) p -- Otherwise, the list returned is likely to be empty or -- uninformative. -- --- /Since: 4.5.0.0/ +-- @since 4.5.0.0 currentCallStack :: IO [String] currentCallStack = ccsToStrings =<< getCurrentCCS () @@ -109,7 +109,7 @@ ccsToStrings ccs0 = go ccs0 [] -- | Get the stack trace attached to an object. -- --- /Since: 4.5.0.0/ +-- @since 4.5.0.0 whoCreated :: a -> IO [String] whoCreated obj = do ccs <- getCCSOf obj @@ -121,7 +121,7 @@ renderStack strs = "Stack trace:" ++ concatMap ("\n "++) (reverse strs) -- | Like the function 'error', but appends a stack trace to the error -- message if one is available. -- --- /Since: 4.7.0.0/ +-- @since 4.7.0.0 errorWithStackTrace :: String -> a errorWithStackTrace x = unsafeDupablePerformIO $ do stack <- ccsToStrings =<< getCurrentCCS x |