diff --git a/Data/Vector/Fusion/Stream/Monadic.hs b/Data/Vector/Fusion/Stream/Monadic.hs
--- a/Data/Vector/Fusion/Stream/Monadic.hs
+++ b/Data/Vector/Fusion/Stream/Monadic.hs
@@ -92,14 +92,14 @@
 import Data.Int  ( Int8, Int16, Int32, Int64 )
 import Data.Word ( Word8, Word16, Word32, Word, Word64 )
 
-#if __GLASGOW_HASKELL__ >= 613
-import SpecConstr ( SpecConstrAnnotation(..) )
+#if __GLASGOW_HASKELL__ >= 700
+import GHC.Exts ( SpecConstrAnnotation(..) )
 #endif
 
 #include "vector.h"
 
 data SPEC = SPEC | SPEC2
-#if __GLASGOW_HASKELL__ >= 613
+#if __GLASGOW_HASKELL__ >= 700
 {-# ANN type SPEC ForceSpecConstr #-}
 #endif
 
diff --git a/Data/Vector/Generic.hs b/Data/Vector/Generic.hs
--- a/Data/Vector/Generic.hs
+++ b/Data/Vector/Generic.hs
@@ -508,28 +508,6 @@
 {-# INLINE unfoldrN #-}
 unfoldrN n f = unstream . Stream.unfoldrN n f
 
-{-
-construct :: Vector v a => Int -> (v a -> a) -> v a
-{-# INLINE construct #-}
-construct n f = runST (
-  do
-    v  <- M.new n
-    v' <- unsafeFreeze v
-    fill v' 0
-  )
-  where
-    fill v i | i < n = let x = f (unsafeTake i v)
-                       in
-                       elemseq v x $
-                       do
-                         v'  <- unsafeThaw v
-                         M.unsafeWrite v' i x
-                         v'' <- unsafeFreeze v'
-                         fill v'' (i-1)
-
-    fill v i = return v
--}
-
 -- Enumeration
 -- -----------
 
diff --git a/benchmarks/vector-benchmarks.cabal b/benchmarks/vector-benchmarks.cabal
--- a/benchmarks/vector-benchmarks.cabal
+++ b/benchmarks/vector-benchmarks.cabal
@@ -1,5 +1,5 @@
 Name:           vector-benchmarks
-Version:        0.7
+Version:        0.7.0.1
 License:        BSD3
 License-File:   LICENSE
 Author:         Roman Leshchinskiy <rl@cse.unsw.edu.au>
@@ -13,13 +13,13 @@
 
   Build-Depends: base >= 2 && < 5, array,
                  criterion >= 0.5 && < 0.6,
-                 mwc-random >= 0.5 && < 0.8,
-                 vector == 0.7
+                 mwc-random >= 0.5 && < 0.9,
+                 vector == 0.7.0.1
 
   if impl(ghc<6.13)
-    Ghc-Options: -finline-if-enough-args
+    Ghc-Options: -finline-if-enough-args -fno-method-sharing
   
-  Ghc-Options: -O2 -fno-method-sharing
+  Ghc-Options: -O2
 
   Other-Modules:
         Algo.ListRank
diff --git a/vector.cabal b/vector.cabal
--- a/vector.cabal
+++ b/vector.cabal
@@ -1,5 +1,5 @@
 Name:           vector
-Version:        0.7
+Version:        0.7.0.1
 License:        BSD3
 License-File:   LICENSE
 Author:         Roman Leshchinskiy <rl@cse.unsw.edu.au>
@@ -38,6 +38,10 @@
         .
         * <http://trac.haskell.org/vector>
         .
+        Changes in version 0.7.0.1
+        .
+        * Dependency on package ghc removed
+        .
         Changes in version 0.7
         .
         * New functions for freezing, copying and thawing vectors: @freeze@,
@@ -140,7 +144,7 @@
   Install-Includes:
         vector.h
 
-  Build-Depends: base >= 4 && < 5, ghc >= 6.9, primitive >= 0.3.1 && < 0.4
+  Build-Depends: base >= 4 && < 5, primitive >= 0.3.1 && < 0.4
 
   if impl(ghc<6.13)
     Ghc-Options: -finline-if-enough-args -fno-method-sharing