Require primitive 0.4 and replace deprecated primitives
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 17 Aug 2011 22:23:19 +0000 (22:23 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 17 Aug 2011 22:23:19 +0000 (22:23 +0000)
Data/Vector/Primitive.hs
Data/Vector/Primitive/Mutable.hs
vector.cabal

index 022cec6..6a42da8 100644 (file)
@@ -203,7 +203,7 @@ instance Prim a => G.Vector Vector a where
 
   {-# INLINE basicUnsafeCopy #-}
   basicUnsafeCopy (MVector i n dst) (Vector j _ src)
-    = memcpyByteArray' dst (i * sz) src (j * sz) (n * sz)
+    = copyByteArray src (j*sz) dst (i*sz) (n*sz)
     where
       sz = sizeOf (undefined :: a)
 
index 624dd4b..3ce5dda 100644 (file)
@@ -98,13 +98,13 @@ instance Prim a => G.MVector MVector a where
 
   {-# INLINE basicUnsafeCopy #-}
   basicUnsafeCopy (MVector i n dst) (MVector j _ src)
-    = memcpyByteArray dst (i * sz) src (j * sz) (n * sz)
+    = copyMutableByteArray src (j*sz) dst (i*sz) (n*sz)
     where
       sz = sizeOf (undefined :: a)
   
   {-# INLINE basicUnsafeMove #-}
   basicUnsafeMove (MVector i n dst) (MVector j _ src)
-    = memmoveByteArray dst (i * sz) src (j * sz) (n * sz)
+    = moveByteArray src (j*sz) dst (i*sz) (n * sz)
     where
       sz = sizeOf (undefined :: a)
 
index 1abf4fe..791173b 100644 (file)
@@ -175,7 +175,7 @@ Library
   Install-Includes:
         vector.h
 
-  Build-Depends: base >= 4 && < 5, primitive >= 0.3.1 && < 0.4
+  Build-Depends: base >= 4 && < 5, primitive >= 0.4 && < 0.5
 
   if impl(ghc<6.13)
     Ghc-Options: -finline-if-enough-args -fno-method-sharing