New.inplace -> New.transform
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 15 Sep 2008 07:46:34 +0000 (07:46 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 15 Sep 2008 07:46:34 +0000 (07:46 +0000)
Data/Vector/IVector.hs
Data/Vector/MVector/New.hs

index 4815ada..719c944 100644 (file)
@@ -164,7 +164,7 @@ inplace f _ s = f s
 "inplace [IVector]"
   forall (mf :: forall m. Monad m => MStream m a -> MStream m a)
          f m.
-  New.unstream (inplace f mf (stream (new m))) = New.inplace mf m
+  New.unstream (inplace f mf (stream (new m))) = New.transform mf m
 
 "inplace/inplace [IVector]"
   forall f (mf :: forall m. Monad m => MStream m a -> MStream m a)
index 7b07515..22b9238 100644 (file)
@@ -3,7 +3,7 @@
 #include "phases.h"
 
 module Data.Vector.MVector.New (
-  New(..), run, unstream, inplace, update, reverse
+  New(..), run, unstream, transform, update, reverse
 ) where
 
 import qualified Data.Vector.MVector as MVector
@@ -31,17 +31,17 @@ unstream :: Stream a -> New a
 {-# INLINE_STREAM unstream #-}
 unstream s = New (MVector.unstream s)
 
-inplace :: (forall m. Monad m => MStream m a -> MStream m a) -> New a -> New a
-{-# INLINE_STREAM inplace #-}
-inplace f (New p) = New (MVector.transform f =<< p)
+transform :: (forall m. Monad m => MStream m a -> MStream m a) -> New a -> New a
+{-# INLINE_STREAM transform #-}
+transform f (New p) = New (MVector.transform f =<< p)
 
 {-# RULES
 
-"inplace/inplace [New]"
+"transform/transform [New]"
   forall (f :: forall m. Monad m => MStream m a -> MStream m a)
          (g :: forall m. Monad m => MStream m a -> MStream m a)
          p .
-  inplace f (inplace g p) = inplace (f . g) p
+  transform f (transform g p) = transform (f . g) p
 
  #-}