Remove unused imports. (#576)
authorDavid Eichmann <EichmannD@gmail.com>
Wed, 14 Nov 2018 14:39:27 +0000 (15:39 +0100)
committerDavid Feuer <David.Feuer@gmail.com>
Wed, 14 Nov 2018 14:39:27 +0000 (09:39 -0500)
Due to a bug in ghc, some unused imports do not yield warnings.
This commit will remove such unused imports in preparation for
the ghc bug fix (see https://ghc.haskell.org/trac/ghc/ticket/13064).

Data/Graph.hs
Data/IntMap/Internal.hs
Data/IntMap/Strict.hs
Data/IntSet/Internal.hs
Data/Map/Internal.hs
Data/Map/Strict/Internal.hs
Data/Set/Internal.hs
Data/Tree.hs

index 0bdde5c..7904572 100644 (file)
@@ -124,6 +124,8 @@ import qualified Data.Array as UA
 import Data.List
 #if MIN_VERSION_base(4,9,0)
 import Data.Functor.Classes
+#endif
+#if (!MIN_VERSION_base(4,11,0)) && MIN_VERSION_base(4,9,0)
 import Data.Semigroup (Semigroup (..))
 #endif
 #ifdef __GLASGOW_HASKELL__
index e61972c..af3cf4c 100644 (file)
@@ -296,14 +296,22 @@ import Data.Traversable (Traversable(traverse))
 import Data.Word (Word)
 #endif
 #if MIN_VERSION_base(4,9,0)
-import Data.Semigroup (Semigroup((<>), stimes), stimesIdempotentMonoid)
+import Data.Semigroup (Semigroup(stimes))
+#endif
+#if !(MIN_VERSION_base(4,11,0)) && MIN_VERSION_base(4,9,0)
+import Data.Semigroup (Semigroup((<>)))
+#endif
+#if MIN_VERSION_base(4,9,0)
+import Data.Semigroup (stimesIdempotentMonoid)
 import Data.Functor.Classes
 #endif
 
 import Control.DeepSeq (NFData(rnf))
 import Data.Bits
 import qualified Data.Foldable as Foldable
+#if !MIN_VERSION_base(4,8,0)
 import Data.Foldable (Foldable())
+#endif
 import Data.Maybe (fromMaybe)
 import Data.Typeable
 import Prelude hiding (lookup, map, filter, foldr, foldl, null)
index 4e6afd1..e9ea648 100644 (file)
@@ -344,7 +344,9 @@ import Data.Functor((<$>))
 #endif
 import Control.Applicative (Applicative (..), liftA2)
 import qualified Data.Foldable as Foldable
+#if !MIN_VERSION_base(4,8,0)
 import Data.Foldable (Foldable())
+#endif
 
 {--------------------------------------------------------------------
   Query
index 8a0b08e..5f48faa 100644 (file)
@@ -195,7 +195,13 @@ import Data.Monoid (Monoid(..))
 import Data.Word (Word)
 #endif
 #if MIN_VERSION_base(4,9,0)
-import Data.Semigroup (Semigroup((<>), stimes), stimesIdempotentMonoid)
+import Data.Semigroup (Semigroup(stimes))
+#endif
+#if !(MIN_VERSION_base(4,11,0)) && MIN_VERSION_base(4,9,0)
+import Data.Semigroup (Semigroup((<>)))
+#endif
+#if MIN_VERSION_base(4,9,0)
+import Data.Semigroup (stimesIdempotentMonoid)
 #endif
 import Data.Typeable
 import Prelude hiding (filter, foldr, foldl, null, map)
@@ -217,7 +223,9 @@ import GHC.Prim (indexInt8OffAddr#)
 #endif
 
 import qualified Data.Foldable as Foldable
+#if !MIN_VERSION_base(4,8,0)
 import Data.Foldable (Foldable())
+#endif
 
 infixl 9 \\{-This comment teaches CPP correct behaviour -}
 
index bb6dcf1..b6dc322 100644 (file)
@@ -372,13 +372,21 @@ import Data.Traversable (Traversable(traverse))
 #endif
 #if MIN_VERSION_base(4,9,0)
 import Data.Functor.Classes
-import Data.Semigroup (Semigroup((<>), stimes), stimesIdempotentMonoid)
+import Data.Semigroup (stimesIdempotentMonoid)
+#endif
+#if MIN_VERSION_base(4,9,0)
+import Data.Semigroup (Semigroup(stimes))
+#endif
+#if !(MIN_VERSION_base(4,11,0)) && MIN_VERSION_base(4,9,0)
+import Data.Semigroup (Semigroup((<>)))
 #endif
 import Control.Applicative (Const (..))
 import Control.DeepSeq (NFData(rnf))
 import Data.Bits (shiftL, shiftR)
 import qualified Data.Foldable as Foldable
+#if !MIN_VERSION_base(4,8,0)
 import Data.Foldable (Foldable())
+#endif
 import Data.Typeable
 import Prelude hiding (lookup, map, filter, foldr, foldl, null, splitAt, take, drop)
 
index 15a9161..8159416 100644 (file)
@@ -422,7 +422,9 @@ import Data.Functor.Identity (Identity (..))
 #endif
 
 import qualified Data.Foldable as Foldable
+#if !MIN_VERSION_base(4,8,0)
 import Data.Foldable (Foldable())
+#endif
 
 -- $strictness
 --
index 53a8d60..d019fdd 100644 (file)
@@ -236,7 +236,13 @@ import Data.Bits (shiftL, shiftR)
 import Data.Monoid (Monoid(..))
 #endif
 #if MIN_VERSION_base(4,9,0)
-import Data.Semigroup (Semigroup((<>), stimes), stimesIdempotentMonoid)
+import Data.Semigroup (Semigroup(stimes))
+#endif
+#if !(MIN_VERSION_base(4,11,0)) && MIN_VERSION_base(4,9,0)
+import Data.Semigroup (Semigroup((<>)))
+#endif
+#if MIN_VERSION_base(4,9,0)
+import Data.Semigroup (stimesIdempotentMonoid)
 import Data.Functor.Classes
 #endif
 import qualified Data.Foldable as Foldable
index 509fb1a..44bd303 100644 (file)
@@ -81,6 +81,8 @@ import Data.Coerce
 
 #if MIN_VERSION_base(4,9,0)
 import Data.Functor.Classes
+#endif
+#if (!MIN_VERSION_base(4,11,0)) && MIN_VERSION_base(4,9,0)
 import Data.Semigroup (Semigroup (..))
 #endif