-Wall police.

Cabal/Distribution/Simple/Program/Db.hs

@@ -74,7 +74,9 @@ import Distribution.Verbosity
          ( Verbosity )
 
 import Distribution.Compat.Binary (Binary(..))
+#if __GLASGOW_HASKELL__ < 710
 import Data.Functor ((<$>))
+#endif
 import Data.List
          ( foldl' )
 import Data.Maybe