Convenience type synonyms
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 16 Nov 2009 05:02:46 +0000 (05:02 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Mon, 16 Nov 2009 05:02:46 +0000 (05:02 +0000)
Data/Vector/Primitive/Mutable.hs

index a2d5131..aaac669 100644 (file)
@@ -17,12 +17,16 @@ import           Data.Vector.MVector ( MVector, MVectorPure )
 import           Data.Primitive.ByteArray
 import           Data.Primitive ( Prim, sizeOf )
 import           Control.Monad.Primitive
+import           Control.Monad.ST ( ST )
 
 -- | Mutable unboxed vectors. They live in the 'ST' monad.
 data Vector m a = Vector {-# UNPACK #-} !Int
                          {-# UNPACK #-} !Int
                          {-# UNPACK #-} !(MutableByteArray m)
 
+type IOVector = Vector IO
+type STVector s = Vector (ST s)
+
 instance Prim a => MVectorPure (Vector m) a where
   length (Vector _ n _) = n
   unsafeSlice (Vector i _ arr) j m = Vector (i+j) m arr