Support 6.10
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 7 Apr 2010 03:07:27 +0000 (03:07 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 7 Apr 2010 03:07:27 +0000 (03:07 +0000)
We use mkNorepType instead of mkNoRepType since the latter isn't available in
6.10. The former, however, is deprecated in 6.12 and later versions which
leads to warnings. I'd be interested to know what portable code is supposed to
look like in this particular case.

Data/Vector/Generic.hs

index 7be7582..c768d66 100644 (file)
@@ -123,7 +123,7 @@ import Prelude hiding ( length, null,
                         enumFromTo, enumFromThenTo )
 
 import Data.Typeable ( Typeable1, gcast1 )
-import Data.Data ( Data, DataType, mkNoRepType )
+import Data.Data ( Data, DataType, mkNorepType )
 
 #include "vector.h"
 
@@ -1302,7 +1302,7 @@ gfoldl f z v = z fromList `f` toList v
 
 mkType :: String -> DataType
 {-# INLINE mkType #-}
-mkType = mkNoRepType
+mkType = mkNorepType
 
 dataCast :: (Vector v a, Data a, Typeable1 v, Typeable1 t)
          => (forall d. Data  d => c (t d)) -> Maybe  (c (v a))