Improve basicSet for primitive vectors
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 27 Jan 2012 23:44:26 +0000 (23:44 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 27 Jan 2012 23:44:26 +0000 (23:44 +0000)
Data/Vector/Primitive/Mutable.hs

index 447e315..d496e7e 100644 (file)
@@ -105,6 +105,9 @@ instance Prim a => G.MVector MVector a where
     where
       sz = sizeOf (undefined :: a)
 
+  {-# INLINE basicSet #-}
+  basicSet (MVector i n arr) x = setByteArray arr i n x
+
 -- Length information
 -- ------------------