Make `-Wall` clean
authorHerbert Valerio Riedel <hvr@gnu.org>
Wed, 25 Nov 2015 07:37:20 +0000 (08:37 +0100)
committerHerbert Valerio Riedel <hvr@gnu.org>
Wed, 25 Nov 2015 07:37:20 +0000 (08:37 +0100)
Get rid of left-over redundant-import warnings from the last minute
AMP-changes that occured in GHC 7.10

Data/IntMap/Base.hs
Data/Map/Base.hs
Data/Sequence.hs
Data/Tree.hs

index e15ed76..0a840f5 100644 (file)
@@ -216,9 +216,7 @@ module Data.IntMap.Base (
     , highestBitMask
     ) where
 
-#if MIN_VERSION_base(4,8,0)
-import Control.Applicative ((<$>))
-#else
+#if !(MIN_VERSION_base(4,8,0))
 import Control.Applicative (Applicative(pure, (<*>)), (<$>))
 import Data.Monoid (Monoid(..))
 import Data.Traversable (Traversable(traverse))
index 41c3611..569b602 100644 (file)
@@ -270,9 +270,7 @@ module Data.Map.Base (
     , filterLt
     ) where
 
-#if MIN_VERSION_base(4,8,0)
-import Control.Applicative ((<$>))
-#else
+#if !(MIN_VERSION_base(4,8,0))
 import Control.Applicative (Applicative(..), (<$>))
 import Data.Monoid (Monoid(..))
 import Data.Traversable (Traversable(traverse))
index 8fc2baf..bb86c95 100644 (file)
@@ -158,7 +158,7 @@ module Data.Sequence (
 import Prelude hiding (
     Functor(..),
 #if MIN_VERSION_base(4,8,0)
-    Applicative, foldMap, Monoid,
+    Applicative, (<$>), foldMap, Monoid,
 #endif
     null, length, take, drop, splitAt, foldl, foldl1, foldr, foldr1,
     scanl, scanl1, scanr, scanr1, replicate, zip, zipWith, zip3, zipWith3,
index c1b9d34..a6f64f9 100644 (file)
@@ -35,7 +35,6 @@ module Data.Tree(
     ) where
 
 #if MIN_VERSION_base(4,8,0)
-import Control.Applicative ((<$>))
 import Data.Foldable (toList)
 #else
 import Control.Applicative (Applicative(..), (<$>))