diff options
Diffstat (limited to 'libraries/base/GHC/IO/Exception.hs')
| -rw-r--r-- | libraries/base/GHC/IO/Exception.hs | 21 |
1 files changed, 1 insertions, 20 deletions
diff --git a/libraries/base/GHC/IO/Exception.hs b/libraries/base/GHC/IO/Exception.hs index af9e7661e0..7f5bc4ef18 100644 --- a/libraries/base/GHC/IO/Exception.hs +++ b/libraries/base/GHC/IO/Exception.hs @@ -22,7 +22,6 @@ module GHC.IO.Exception ( BlockedIndefinitelyOnMVar(..), blockedIndefinitelyOnMVar, BlockedIndefinitelyOnSTM(..), blockedIndefinitelyOnSTM, Deadlock(..), - AllocationLimitExceeded(..), allocationLimitExceeded, AssertionFailed(..), SomeAsyncException(..), @@ -100,23 +99,6 @@ instance Show Deadlock where ----- --- |This thread has exceeded its allocation limit. See --- 'GHC.Conc.setAllocationCounter' and --- 'GHC.Conc.enableAllocationLimit'. -data AllocationLimitExceeded = AllocationLimitExceeded - deriving Typeable - -instance Exception AllocationLimitExceeded - -instance Show AllocationLimitExceeded where - showsPrec _ AllocationLimitExceeded = - showString "allocation limit exceeded" - -allocationLimitExceeded :: SomeException -- for the RTS -allocationLimitExceeded = toException AllocationLimitExceeded - ------ - -- |'assert' was applied to 'False'. data AssertionFailed = AssertionFailed String deriving Typeable @@ -193,8 +175,7 @@ data ArrayException instance Exception ArrayException --- for the RTS -stackOverflow, heapOverflow :: SomeException +stackOverflow, heapOverflow :: SomeException -- for the RTS stackOverflow = toException StackOverflow heapOverflow = toException HeapOverflow |