projects
/
ghc-base.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Don't use "deriving Typeable" (for portability reasons)
[ghc-base.git]
/
Control
/
Exception.hs
diff --git
a/Control/Exception.hs
b/Control/Exception.hs
index
d3a88e8
..
13b6cac
100644
(file)
--- a/
Control/Exception.hs
+++ b/
Control/Exception.hs
@@
-1,4
+1,7
@@
{-# OPTIONS_GHC -XNoImplicitPrelude #-}
{-# OPTIONS_GHC -XNoImplicitPrelude #-}
+
+#include "Typeable.h"
+
-----------------------------------------------------------------------------
-- |
-- Module : Control.Exception
-----------------------------------------------------------------------------
-- |
-- Module : Control.Exception
@@
-46,6
+49,7
@@
module Control.Exception (
RecConError(..),
RecSelError(..),
RecUpdError(..),
RecConError(..),
RecSelError(..),
RecUpdError(..),
+ ErrorCall(..),
-- * Throwing exceptions
throwIO, -- :: Exception -> IO a
-- * Throwing exceptions
throwIO, -- :: Exception -> IO a
@@
-557,7
+561,7
@@
patError s = throw (PatternMatchFail (untangle s "Non-exhaustive
-----
data PatternMatchFail = PatternMatchFail String
-----
data PatternMatchFail = PatternMatchFail String
- deriving Typeable
+INSTANCE_TYPEABLE0(PatternMatchFail,patternMatchFailTc,"PatternMatchFail")
instance Exception PatternMatchFail
instance Exception PatternMatchFail
@@
-567,7
+571,7
@@
instance Show PatternMatchFail where
-----
data RecSelError = RecSelError String
-----
data RecSelError = RecSelError String
- deriving Typeable
+INSTANCE_TYPEABLE0(RecSelError,recSelErrorTc,"RecSelError")
instance Exception RecSelError
instance Exception RecSelError
@@
-577,7
+581,7
@@
instance Show RecSelError where
-----
data RecConError = RecConError String
-----
data RecConError = RecConError String
- deriving Typeable
+INSTANCE_TYPEABLE0(RecConError,recConErrorTc,"RecConError")
instance Exception RecConError
instance Exception RecConError
@@
-587,7
+591,7
@@
instance Show RecConError where
-----
data RecUpdError = RecUpdError String
-----
data RecUpdError = RecUpdError String
- deriving Typeable
+INSTANCE_TYPEABLE0(RecUpdError,recUpdErrorTc,"RecUpdError")
instance Exception RecUpdError
instance Exception RecUpdError
@@
-597,7
+601,7
@@
instance Show RecUpdError where
-----
data NoMethodError = NoMethodError String
-----
data NoMethodError = NoMethodError String
- deriving Typeable
+INSTANCE_TYPEABLE0(NoMethodError,noMethodErrorTc,"NoMethodError")
instance Exception NoMethodError
instance Exception NoMethodError
@@
-607,7
+611,7
@@
instance Show NoMethodError where
-----
data AssertionFailed = AssertionFailed String
-----
data AssertionFailed = AssertionFailed String
- deriving Typeable
+INSTANCE_TYPEABLE0(AssertionFailed,assertionFailedTc,"AssertionFailed")
instance Exception AssertionFailed
instance Exception AssertionFailed
@@
-617,7
+621,7
@@
instance Show AssertionFailed where
-----
data NonTermination = NonTermination
-----
data NonTermination = NonTermination
- deriving Typeable
+INSTANCE_TYPEABLE0(NonTermination,nonTerminationTc,"NonTermination")
instance Exception NonTermination
instance Exception NonTermination
@@
-631,7
+635,7
@@
nonTermination = toException NonTermination
-----
data Deadlock = Deadlock
-----
data Deadlock = Deadlock
- deriving Typeable
+INSTANCE_TYPEABLE0(Deadlock,deadlockTc,"Deadlock")
instance Exception Deadlock
instance Exception Deadlock
@@
-641,7
+645,7
@@
instance Show Deadlock where
-----
data NestedAtomically = NestedAtomically
-----
data NestedAtomically = NestedAtomically
- deriving Typeable
+INSTANCE_TYPEABLE0(NestedAtomically,nestedAtomicallyTc,"NestedAtomically")
instance Exception NestedAtomically
instance Exception NestedAtomically