vector-instances 2.0.2 → 2.0.3

raw patch · 2 files changed

+2/−48 lines, 2 filesdep ~vector

Dependency ranges changed: vector

Files

• Data/Vector/Instances.hs +0/−46
• vector-instances.cabal +2/−2

@@ -20,8 +20,6 @@ import Data.Functor.Bind import Data.Functor.Extend import Data.Functor.Plus-import Data.Foldable (Foldable(..))-import Data.Traversable (Traversable(..)) import Data.Pointed import Data.Monoid import qualified Data.Vector as Vector@@ -31,10 +29,6 @@ import Data.Vector (Vector,(++),drop,length,imap,ifoldr, ifoldl, izipWith,(!?),(//), generate) import qualified Data.Vector as Vector -instance Functor Vector where-  fmap = Vector.map-  {-# INLINE fmap #-}- type instance Key Vector = Int  instance Keyed Vector where@@ -85,17 +79,6 @@   point = Vector.singleton   {-# INLINE point #-} -instance Applicative Vector where-  pure = Vector.singleton-  {-# INLINE pure #-}-  fs <*> as =-    G.unstream $ Stream.sized results (Exact n)-    where-      n = Vector.length fs * Vector.length as-      results = Stream.concatMap body $ G.stream fs-      body f = Stream.map f $ G.stream as-  {-# INLINE (<*>) #-}- instance Bind Vector where   v >>- f = Vector.concatMap f v   {-# INLINE (>>-) #-}@@ -104,14 +87,6 @@   (<>) = (++)   {-# INLINE (<>) #-}   -instance Monad Vector where-  return = Vector.singleton-  {-# INLINE return #-}-  v >>= f = Vector.concatMap f v-  {-# INLINE (>>=) #-}-  fail _ = Vector.empty-  {-# INLINE fail #-}- instance MonadPlus Vector where   mzero = Vector.empty   {-# INLINE mzero #-}@@ -125,27 +100,6 @@ instance Plus Vector where   zero = Vector.empty   {-# INLINE zero #-}--instance Alternative Vector where-  (<|>) = (++)-  {-# INLINE (<|>) #-}-  empty = Vector.empty-  {-# INLINE empty #-}--instance Foldable Vector where-  foldl = Vector.foldl-  {-# INLINE foldl #-}-  foldr = Vector.foldr-  {-# INLINE foldr #-}-  foldl1 = Vector.foldl1-  {-# INLINE foldl1 #-}-  foldr1 = Vector.foldr1-  {-# INLINE foldr1 #-}--instance Traversable Vector where-  traverse f v-     = Vector.fromListN (Vector.length v) <$> traverse f (Vector.toList v)-  {-# INLINE traverse #-}  instance TraversableWithKey Vector where   traverseWithKey f v

@@ -1,5 +1,5 @@ name:                vector-instances-version:             2.0.2+version:             2.0.3 synopsis:            Orphan Instances for 'Data.Vector' homepage:            http://github.com/ekmett/vector-instances license:             BSD3@@ -23,7 +23,7 @@    build-depends:     base          >= 4 && < 5,-    vector        >= 0.7 && < 8,+    vector        >= 0.8 && < 0.9,     semigroupoids >= 1.2.4 && < 1.3,     semigroups    >= 0.8 && < 0.9,     comonad       >= 1.1.1 && < 1.2,