AllocationLimitExceeded should be a child of SomeAsyncException
authorSimon Marlow <marlowsd@gmail.com>
Wed, 25 Feb 2015 09:31:18 +0000 (09:31 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Thu, 26 Feb 2015 11:43:09 +0000 (11:43 +0000)
libraries/base/GHC/IO/Exception.hs

index e9a32b6..eed5362 100644 (file)
@@ -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 =