Change impl of reverse
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 7 Apr 2010 00:12:23 +0000 (00:12 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Wed, 7 Apr 2010 00:12:23 +0000 (00:12 +0000)
Data/Vector/Generic.hs

index c878a1f..04ed7c6 100644 (file)
@@ -643,7 +643,7 @@ unsafeBackpermute v is = seq v
 
 reverse :: (Vector v a) => v a -> v a
 {-# INLINE reverse #-}
-reverse = new . New.reverse . New.unstream . stream
+reverse = unstream . streamR
 
 -- Mapping
 -- -------