Fix Traversable use for createT on older GHCs.

Author: dolio

Data/Vector.hs

@@ -703,7 +703,7 @@ create :: (forall s. ST s (MVector s a)) -> Vector a
 create p = G.create p
 
 -- | Execute the monadic action and freeze the resulting vectors.
-createT :: Traversable f => (forall s. ST s (f (MVector s a))) -> f (Vector a)
+createT :: Traversable.Traversable f => (forall s. ST s (f (MVector s a))) -> f (Vector a)
 {-# INLINE createT #-}
 createT p = G.createT p
 

Data/Vector/Generic.hs

@@ -217,6 +217,10 @@ mkNoRepType :: String -> DataType
 mkNoRepType = mkNorepType
 #endif
 
+#if !MIN_VERSION_base(4,8,0)
+import Data.Traversable (Traversable, traverse)
+#endif
+
 -- Length information
 -- ------------------
 

Data/Vector/Primitive.hs

@@ -169,6 +169,7 @@ import Data.Semigroup ( Semigroup(..) )
 
 #if !MIN_VERSION_base(4,8,0)
 import Data.Monoid   ( Monoid(..) )
+import Data.Traversable ( Traversable )
 #endif
 
 #if __GLASGOW_HASKELL__ >= 708

Data/Vector/Storable.hs

@@ -174,6 +174,7 @@ import Data.Semigroup ( Semigroup(..) )
 
 #if !MIN_VERSION_base(4,8,0)
 import Data.Monoid   ( Monoid(..) )
+import Data.Traversable ( Traversable )
 #endif
 
 #if __GLASGOW_HASKELL__ >= 708

Data/Vector/Unboxed.hs

@@ -191,6 +191,7 @@ import Data.Semigroup ( Semigroup(..) )
 
 #if !MIN_VERSION_base(4,8,0)
 import Data.Monoid   ( Monoid(..) )
+import Data.Traversable ( Traversable )
 #endif
 
 #if __GLASGOW_HASKELL__ >= 708