1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
--- a/DB/HSQL/Core.hs
+++ b/DB/HSQL/Core.hs
@@ -7,3 +7,3 @@ import Control.Exception(Exception,throw,catch,handle)
import Control.Concurrent.MVar(MVar,withMVar,modifyMVar_)
-import Data.Dynamic(cast)
+import Data.Typeable(cast)
--- a/DB/HSQL/Error.hs
+++ b/DB/HSQL/Error.hs
@@ -7,3 +7,3 @@ module DB.HSQL.Error(SqlError(..)) where
import Control.Exception(Exception(..),SomeException(..))
-import Data.Dynamic(Typeable,TyCon,mkTyCon3,cast)
+import Data.Typeable(Typeable, cast)
import DB.HSQL.Type(SqlType)
@@ -32,14 +32,3 @@ data SqlError
| SqlClosedHandle -- ^ referenced handle is already closed
-#ifdef __GLASGOW_HASKELL__
deriving (Eq,Ord,Typeable)
-#else
- deriving (Eq,Ord)
-
-instance Typeable SqlError where
- typeOf _ = mkAppTy sqlErrorTc []
-#endif
-
--- | The `TyCon' of `SqlError'.
-sqlErrorTc :: TyCon
-sqlErrorTc = mkTyCon3 "DB.HSQL" "Error" "SqlError"
|
