listlike-instances 0.2.2.1 → 0.2.3

raw patch · 7 files changed

+37/−1 lines, 7 files

Files

listlike-instances.cabal +1/−1
src/Data/ListLike/Text/Text.hs +6/−0
src/Data/ListLike/Text/TextLazy.hs +6/−0
src/Data/ListLike/Vector/Generic.hs +6/−0
src/Data/ListLike/Vector/Storable.hs +6/−0
src/Data/ListLike/Vector/Unboxed.hs +6/−0
src/Data/ListLike/Vector/Vector.hs +6/−0

listlike-instances.cabal view

@@ -1,5 +1,5 @@ Name:                listlike-instances-Version:             0.2.2.1+Version:             0.2.3 Synopsis:            Extra instances of the ListLike class Description:         Provides ListLike instances for Vector and Text types Homepage:            http://jwlato.webfactional.com/haskell/listlike-instances

src/Data/ListLike/Text/Text.hs view

@@ -5,6 +5,8 @@  where +import           Prelude as P+import           Control.Monad import qualified Data.Text as T import qualified Data.Text.IO as TI import           Data.Text.Encoding (decodeUtf8)@@ -69,6 +71,10 @@     genericDrop i = T.drop (fromIntegral i)     genericSplitAt i = T.splitAt (fromIntegral i)     genericReplicate i = Data.ListLike.replicate (fromIntegral i)++    sequence  = liftM fromList . P.sequence  . toList+    mapM func = liftM fromList . P.mapM func . toList+    mapM_ func = P.mapM_ func . toList  instance ListLikeIO T.Text Char where     hGetLine = TI.hGetLine

src/Data/ListLike/Text/TextLazy.hs view

@@ -5,6 +5,8 @@  where +import           Prelude as P+import           Control.Monad import qualified Data.Text.Lazy as T import qualified Data.Text.Lazy.IO as TI import           Data.Text.Encoding (decodeUtf8)@@ -67,6 +69,10 @@     genericDrop i = T.drop (fromIntegral i)     genericSplitAt i = T.splitAt (fromIntegral i)     genericReplicate i = Data.ListLike.replicate (fromIntegral i)++    sequence  = liftM fromList . P.sequence  . toList+    mapM func = liftM fromList . P.mapM func . toList+    mapM_ func = P.mapM_ func . toList  instance ListLikeIO T.Text Char where     hGetLine = TI.hGetLine

src/Data/ListLike/Vector/Generic.hs view

@@ -11,6 +11,8 @@  where +import           Prelude as P+import           Control.Monad import qualified Data.Vector.Generic as V import           Data.Vector.Generic ((!)) import           Data.ListLike@@ -74,6 +76,10 @@     genericDrop i = V.drop (fromIntegral i)     --genericSplitAt i =      genericReplicate i = V.replicate (fromIntegral i)++    sequence  = liftM fromList . P.sequence  . toList+    mapM func = liftM fromList . P.mapM func . toList+    mapM_ func = P.mapM_ func . toList  instance (Eq (v Char), V.Vector v Char) => StringLike (v Char) where     toString = V.toList

src/Data/ListLike/Vector/Storable.hs view

@@ -5,6 +5,8 @@  where +import           Prelude as P+import           Control.Monad import qualified Data.Vector.Storable as V import           Data.Vector.Storable ((!)) import           Data.ListLike@@ -70,6 +72,10 @@     genericDrop i = V.drop (fromIntegral i)     --genericSplitAt i =      genericReplicate i = V.replicate (fromIntegral i)++    sequence  = liftM fromList . P.sequence  . toList+    mapM func = liftM fromList . P.mapM func . toList+    mapM_ func = P.mapM_ func . toList  instance StringLike (V.Vector Char) where     toString = toList

src/Data/ListLike/Vector/Unboxed.hs view

@@ -5,6 +5,8 @@  where +import           Prelude as P+import           Control.Monad import qualified Data.Vector.Unboxed as V import           Data.Vector.Unboxed (Unbox, (!)) import           Data.ListLike@@ -69,6 +71,10 @@     genericDrop i = V.drop (fromIntegral i)     --genericSplitAt i =      genericReplicate i = V.replicate (fromIntegral i)++    sequence  = liftM fromList . P.sequence  . toList+    mapM func = liftM fromList . P.mapM func . toList+    mapM_ func = P.mapM_ func . toList  instance StringLike (V.Vector Char) where     toString = toList

src/Data/ListLike/Vector/Vector.hs view

@@ -5,6 +5,8 @@  where +import           Prelude as P+import           Control.Monad import qualified Data.Vector as V import           Data.Vector ((!)) import           Data.ListLike@@ -68,6 +70,10 @@     genericDrop i = V.drop (fromIntegral i)     --genericSplitAt i =      genericReplicate i = V.replicate (fromIntegral i)++    sequence  = liftM fromList . P.sequence  . toList+    mapM func = liftM fromList . P.mapM func . toList+    mapM_ func = P.mapM_ func . toList  instance StringLike (V.Vector Char) where     toString = toList