Support GHC 6.10
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 7 Apr 2010 03:02:06 +0000 (03:02 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 7 Apr 2010 03:02:06 +0000 (03:02 +0000)
We use mkNorepType instead of mkNoRepType but the former is deprecated in GHC
6.12 and later which results in ugly warnings. I'd be interested to know how
I'm supposed to write portable code in this particular case.

Data/Primitive/Array.hs
Data/Primitive/ByteArray.hs
Data/Primitive/Types.hs

index be01746..db12f2a 100644 (file)
@@ -24,7 +24,7 @@ import GHC.Base  ( Int(..) )
 import GHC.Prim
 
 import Data.Typeable ( Typeable )
-import Data.Data ( Data(..), mkNoRepType )
+import Data.Data ( Data(..), mkNorepType )
 
 -- | Boxed arrays
 data Array a = Array (Array# a) deriving ( Typeable )
@@ -109,10 +109,10 @@ sameMutableArray (MutableArray arr#) (MutableArray brr#)
 instance Typeable a => Data (Array a) where
   toConstr _ = error "toConstr"
   gunfold _ _ = error "gunfold"
-  dataTypeOf _ = mkNoRepType "Data.Primitive.Array.Array"
+  dataTypeOf _ = mkNorepType "Data.Primitive.Array.Array"
 
 instance (Typeable s, Typeable a) => Data (MutableArray s a) where
   toConstr _ = error "toConstr"
   gunfold _ _ = error "gunfold"
-  dataTypeOf _ = mkNoRepType "Data.Primitive.Array.MutableArray"
+  dataTypeOf _ = mkNorepType "Data.Primitive.Array.MutableArray"
 
index edcaadb..ed642be 100644 (file)
@@ -33,7 +33,7 @@ import GHC.Base ( Int(..) )
 import GHC.Prim
 
 import Data.Typeable ( Typeable )
-import Data.Data ( Data(..), mkNoRepType )
+import Data.Data ( Data(..), mkNorepType )
 
 -- | Byte arrays
 data ByteArray = ByteArray ByteArray# deriving ( Typeable )
@@ -180,10 +180,10 @@ foreign import ccall unsafe "memops.h memset_off"
 instance Data ByteArray where
   toConstr _ = error "toConstr"
   gunfold _ _ = error "gunfold"
-  dataTypeOf _ = mkNoRepType "Data.Primitive.ByteArray.ByteArray"
+  dataTypeOf _ = mkNorepType "Data.Primitive.ByteArray.ByteArray"
 
 instance Typeable s => Data (MutableByteArray s) where
   toConstr _ = error "toConstr"
   gunfold _ _ = error "gunfold"
-  dataTypeOf _ = mkNoRepType "Data.Primitive.ByteArray.MutableByteArray"
+  dataTypeOf _ = mkNorepType "Data.Primitive.ByteArray.MutableByteArray"
 
index 203cac8..c97a8e3 100644 (file)
@@ -36,7 +36,7 @@ import GHC.Int (
 import GHC.Prim
 
 import Data.Typeable ( Typeable )
-import Data.Data ( Data(..), mkNoRepType )
+import Data.Data ( Data(..), mkNorepType )
 
 -- | A machine address
 data Addr = Addr Addr# deriving ( Typeable )
@@ -54,7 +54,7 @@ instance Ord Addr where
 instance Data Addr where
   toConstr _ = error "toConstr"
   gunfold _ _ = error "gunfold"
-  dataTypeOf _ = mkNoRepType "Data.Primitive.Types.Addr"
+  dataTypeOf _ = mkNorepType "Data.Primitive.Types.Addr"
 
 
 -- | Class of types supporting primitive array operations