Fix various deprecation warnings
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 26 Aug 2011 22:54:07 +0000 (22:54 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 26 Aug 2011 22:54:07 +0000 (22:54 +0000)
Control/Monad/Primitive.hs
Data/Primitive/Array.hs
Data/Primitive/ByteArray.hs
Data/Primitive/Internal/Compat.hs [new file with mode: 0644]
Data/Primitive/MachDeps.hs
Data/Primitive/Types.hs
primitive.cabal

index f4fd670..4761b3c 100644 (file)
@@ -21,7 +21,11 @@ module Control.Monad.Primitive (
 
 import GHC.Prim   ( State#, RealWorld, touch# )
 import GHC.Base   ( unsafeCoerce#, realWorld# )
+#if MIN_VERSION_base(4,2,0)
+import GHC.IO     ( IO(..) )
+#else
 import GHC.IOBase ( IO(..) )
+#endif
 import GHC.ST     ( ST(..) )
 
 -- | Class of primitive state-transformer monads
index 993dad9..d0d140a 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE MagicHash, UnboxedTuples, DeriveDataTypeable, BangPatterns, CPP #-}
+{-# LANGUAGE MagicHash, UnboxedTuples, DeriveDataTypeable, BangPatterns #-}
 
 -- |
 -- Module      : Data.Primitive.Array
@@ -25,7 +25,8 @@ import GHC.Base  ( Int(..) )
 import GHC.Prim
 
 import Data.Typeable ( Typeable )
-import Data.Data ( Data(..), mkNorepType )
+import Data.Data ( Data(..) )
+import Data.Primitive.Internal.Compat ( mkNoRepType )
 
 -- | Boxed arrays
 data Array a = Array (Array# a) deriving ( Typeable )
@@ -156,10 +157,10 @@ copyMutableArray !src !soff !dst !doff !len = go 0
 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 8806718..ae98cee 100644 (file)
@@ -1,5 +1,5 @@
 {-# LANGUAGE MagicHash, UnboxedTuples, ForeignFunctionInterface,
-             UnliftedFFITypes, DeriveDataTypeable, CPP #-}
+             UnliftedFFITypes, DeriveDataTypeable #-}
 
 -- |
 -- Module      : Data.Primitive.ByteArray
@@ -35,7 +35,8 @@ import GHC.Base ( Int(..) )
 import GHC.Prim
 
 import Data.Typeable ( Typeable )
-import Data.Data ( Data(..), mkNorepType )
+import Data.Data ( Data(..) )
+import Data.Primitive.Internal.Compat ( mkNoRepType )
 
 -- | Byte arrays
 data ByteArray = ByteArray ByteArray# deriving ( Typeable )
@@ -273,10 +274,10 @@ foreign import ccall unsafe "primitive-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"
 
diff --git a/Data/Primitive/Internal/Compat.hs b/Data/Primitive/Internal/Compat.hs
new file mode 100644 (file)
index 0000000..5414765
--- /dev/null
@@ -0,0 +1,10 @@
+module Data.Primitive.Internal.Compat (mkNoRepType) where
+
+#if MIN_VERSION_base(4,2,0)
+import Data.Data (mkNoRepType)
+#else
+import Data.Data (mkNorepType)
+
+mkNoRepType = mkNorepType
+#endif
+
index 5bb828e..326be4a 100644 (file)
@@ -1,5 +1,3 @@
-{-# LANGUAGE CPP #-}
-
 -- |
 -- Module      : Data.Primitive.MachDeps
 -- Copyright   : (c) Roman Leshchinskiy 2009
index c97a8e3..3206878 100644 (file)
@@ -1,4 +1,4 @@
-{-# LANGUAGE UnboxedTuples, MagicHash, CPP, DeriveDataTypeable #-}
+{-# LANGUAGE UnboxedTuples, MagicHash, DeriveDataTypeable #-}
 
 -- |
 -- Module      : Data.Primitive.Types
@@ -36,7 +36,8 @@ import GHC.Int (
 import GHC.Prim
 
 import Data.Typeable ( Typeable )
-import Data.Data ( Data(..), mkNorepType )
+import Data.Data ( Data(..) )
+import Data.Primitive.Internal.Compat ( mkNoRepType )
 
 -- | A machine address
 data Addr = Addr Addr# deriving ( Typeable )
@@ -54,7 +55,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
index 0ab3c30..8db51f1 100644 (file)
@@ -30,6 +30,7 @@ Cabal-Version:  >= 1.2
 Build-Type:     Simple
 
 Library
+  Extensions: CPP
   Exposed-Modules:
         Control.Monad.Primitive
         Data.Primitive
@@ -39,6 +40,9 @@ Library
         Data.Primitive.ByteArray
         Data.Primitive.Addr
 
+  Other-Modules:
+        Data.Primitive.Internal.Compat
+
   Build-Depends: base >= 4 && < 5, ghc-prim
 
   Ghc-Options: -O2