Strictness fix
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sat, 7 Jan 2012 10:25:18 +0000 (10:25 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Sat, 7 Jan 2012 10:25:18 +0000 (10:25 +0000)
Data/Vector/Primitive.hs

index 1fe3677..5f0e62e 100644 (file)
@@ -205,7 +205,7 @@ instance Prim a => G.Vector Vector a where
   basicUnsafeSlice j n (Vector i _ arr) = Vector (i+j) n arr
 
   {-# INLINE basicUnsafeIndexM #-}
-  basicUnsafeIndexM (Vector i _ arr) j = return (indexByteArray arr (i+j))
+  basicUnsafeIndexM (Vector i _ arr) j = return $! indexByteArray arr (i+j)
 
   {-# INLINE basicUnsafeCopy #-}
   basicUnsafeCopy (MVector i n dst) (Vector j _ src)