-Wall police.

cabal-install/tests/PackageTests/Exec/Check.hs

+{-# LANGUAGE CPP #-}
 module PackageTests.Exec.Check
        ( tests
        ) where
@@ -9,7 +10,9 @@ import Test.Framework                 as TF (Test)
 import Test.Framework.Providers.HUnit (testCase)
 import Test.HUnit                     (assertBool)
 
+#if !MIN_VERSION_base(4,8,0)
 import Control.Applicative ((<$>))
+#endif
 import Control.Monad (when)
 import Data.List (intercalate, isInfixOf)
 import System.FilePath ((</>))

cabal-install/tests/UnitTests/Distribution/Client/UserConfig.hs

+{-# LANGUAGE CPP #-}
 module UnitTests.Distribution.Client.UserConfig
     ( tests
     ) where
 
 import Control.Exception (bracket)
 import Data.List (sort, nub)
+#if !MIN_VERSION_base(4,8,0)
 import Data.Monoid
+#endif
 import System.Directory (getCurrentDirectory, removeDirectoryRecursive, createDirectoryIfMissing)
 import System.FilePath (takeDirectory)