Slight optimisation
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 7 Dec 2009 04:36:21 +0000 (04:36 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 7 Dec 2009 04:36:21 +0000 (04:36 +0000)
Data/Vector/Generic/Mutable.hs

index 327b0f5..9686fa3 100644 (file)
@@ -283,7 +283,7 @@ munstream :: (PrimMonad m, MVector v a)
 {-# INLINE munstream #-}
 munstream v s = v `seq` do
                           n' <- MStream.foldM put 0 s
-                          return $ slice v 0 n'
+                          return $ unsafeSlice v 0 n'
   where
     {-# INLINE_INNER put #-}
     put i x = do