Mut.trans -> Mut.modify
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 8 Aug 2008 03:38:12 +0000 (03:38 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Fri, 8 Aug 2008 03:38:12 +0000 (03:38 +0000)
Data/Vector/MVector/Mut.hs

index 84dcc82..6d3b8c4 100644 (file)
@@ -24,9 +24,9 @@ run :: MVector mv m a => Mut a -> m (mv a)
 {-# INLINE run #-}
 run (Mut p) = p
 
-trans :: Mut a -> (forall m mv. MVector mv m a => mv a -> m ()) -> Mut a
-{-# INLINE trans #-}
-trans (Mut p) q = Mut (do { v <- p; q v; return v })
+modify :: Mut a -> (forall m mv. MVector mv m a => mv a -> m ()) -> Mut a
+{-# INLINE modify #-}
+modify (Mut p) q = Mut (do { v <- p; q v; return v })
 
 unstream :: Stream a -> Mut a
 {-# INLINE_STREAM unstream #-}
@@ -50,11 +50,11 @@ inplace f (Mut p) = Mut (
 
 update :: Mut a -> Stream (Int, a) -> Mut a
 {-# INLINE_STREAM update #-}
-update m s = trans m (\v -> MVector.update v s)
+update m s = modify m (\v -> MVector.update v s)
 
 reverse :: Mut a -> Mut a
 {-# INLINE_STREAM reverse #-}
-reverse m = trans m (MVector.reverse)
+reverse m = modify m (MVector.reverse)
 
 map :: (a -> a) -> Mut a -> Mut a
 {-# INLINE map #-}