Make New a newtype
authorRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 11 Sep 2008 01:23:28 +0000 (01:23 +0000)
committerRoman Leshchinskiy <rl@cse.unsw.edu.au>
Thu, 11 Sep 2008 01:23:28 +0000 (01:23 +0000)
Data/Vector/MVector/New.hs

index 91ed779..fbfec71 100644 (file)
@@ -17,7 +17,7 @@ import qualified Data.Vector.Fusion.Stream.Monadic as MStream
 import Control.Monad  ( liftM )
 import Prelude hiding ( reverse, map, filter )
 
-data New a = New (forall m mv. MVector mv m a => m (mv a))
+newtype New a = New (forall m mv. MVector mv m a => m (mv a))
 
 run :: MVector mv m a => New a -> m (mv a)
 {-# INLINE run #-}