diff options
Diffstat (limited to 'libraries/base/GHC/Exception')
| -rw-r--r-- | libraries/base/GHC/Exception/Backtrace.hs | 4 | ||||
| -rw-r--r-- | libraries/base/GHC/Exception/Type.hs | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/libraries/base/GHC/Exception/Backtrace.hs b/libraries/base/GHC/Exception/Backtrace.hs index 13faba26de..8f955fa8d2 100644 --- a/libraries/base/GHC/Exception/Backtrace.hs +++ b/libraries/base/GHC/Exception/Backtrace.hs @@ -94,9 +94,9 @@ setDefaultBacktraceMechanisms = writeIORef currentBacktraceMechanisms getDefaultBacktraceMechanisms :: IO [BacktraceMechanism] getDefaultBacktraceMechanisms = readIORef currentBacktraceMechanisms --- | Collect a list of 'Backtrace' via all current default 'BacktraceMechanism'. +-- | Collect a list of 'Backtrace's via all current default 'BacktraceMechanism's. -- See 'setDefaultBacktraceMechanisms' -collectBacktraces :: HasCallStack =>IO [Backtrace] +collectBacktraces :: HasCallStack => IO [Backtrace] collectBacktraces = do mechs <- getDefaultBacktraceMechanisms catMaybes `fmap` mapM collectBacktraces' mechs diff --git a/libraries/base/GHC/Exception/Type.hs b/libraries/base/GHC/Exception/Type.hs index edd3e2e5be..67ea90ce5f 100644 --- a/libraries/base/GHC/Exception/Type.hs +++ b/libraries/base/GHC/Exception/Type.hs @@ -154,7 +154,7 @@ class (Typeable e, Show e) => Exception e where -- | Represent the exception as 'SomeExceptionWithBacktrace' -- If @e@ isn't already of type 'SomeExceptionWithBacktrace' this means some kind of wrapping. toException :: e -> SomeExceptionWithBacktrace - -- | Extract and cast the exception from it's wrapped representation + -- | Extract and cast the exception from its wrapped representation -- If the exception cannot be casted to the expected type then the result is 'Nothing'. fromException :: SomeExceptionWithBacktrace -> Maybe e |