diff options
Diffstat (limited to 'dev-haskell/hsql/files/hsql-1.8.2-ghc84.patch')
-rw-r--r-- | dev-haskell/hsql/files/hsql-1.8.2-ghc84.patch | 29 |
1 files changed, 29 insertions, 0 deletions
diff --git a/dev-haskell/hsql/files/hsql-1.8.2-ghc84.patch b/dev-haskell/hsql/files/hsql-1.8.2-ghc84.patch new file mode 100644 index 000000000000..8f90d43393e2 --- /dev/null +++ b/dev-haskell/hsql/files/hsql-1.8.2-ghc84.patch @@ -0,0 +1,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" + |