[commit: ghc] master: AllocationLimitExceeded should be a child of SomeAsyncException (b7f7889)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/b7f7889fc28460e3e8be3ea8e29f98ff473fd934/ghc

>---------------------------------------------------------------

commit b7f7889fc28460e3e8be3ea8e29f98ff473fd934
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Wed Feb 25 09:31:18 2015 +0000

    AllocationLimitExceeded should be a child of SomeAsyncException


>---------------------------------------------------------------

b7f7889fc28460e3e8be3ea8e29f98ff473fd934
 libraries/base/GHC/IO/Exception.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/libraries/base/GHC/IO/Exception.hs b/libraries/base/GHC/IO/Exception.hs
index e9a32b6..eed5362 100644
--- a/libraries/base/GHC/IO/Exception.hs
+++ b/libraries/base/GHC/IO/Exception.hs
@@ -107,7 +107,9 @@ instance Show Deadlock where
 data AllocationLimitExceeded = AllocationLimitExceeded
     deriving Typeable
 
-instance Exception AllocationLimitExceeded
+instance Exception AllocationLimitExceeded where
+  toException = asyncExceptionToException
+  fromException = asyncExceptionFromException
 
 instance Show AllocationLimitExceeded where
     showsPrec _ AllocationLimitExceeded =