diff --git a/Data/Vector/Instances.hs b/Data/Vector/Instances.hs
--- a/Data/Vector/Instances.hs
+++ b/Data/Vector/Instances.hs
@@ -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
diff --git a/vector-instances.cabal b/vector-instances.cabal
--- a/vector-instances.cabal
+++ b/vector-instances.cabal
@@ -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,