Tidy up

Remove uneeded import of join and add a wildcard pattern when f is
unused by fmap.

Cabal/Distribution/Compat/ReadP.hs

@@ -72,7 +72,6 @@ module Distribution.Compat.ReadP
 import Control.Monad( MonadPlus(..), liftM2 )
 import Data.Char (isSpace)
 import Control.Applicative (Applicative(..))
-import Control.Monad (join)
 
 infixr 5 +++, <++
 

Cabal/Distribution/ParseUtils.hs

@@ -87,7 +87,7 @@ import Data.Char (isSpace, toLower, isAlphaNum, isDigit)
 import Data.Maybe       (fromMaybe)
 import Data.Tree as Tree (Tree(..), flatten)
 import qualified Data.Map as Map
-import Control.Monad (foldM, join) 
+import Control.Monad (foldM) 
 import Control.Applicative (Applicative(..))
 import System.FilePath (normalise)
 import Data.List (sortBy)
@@ -117,7 +117,7 @@ data ParseResult a = ParseFailed PError | ParseOk [PWarning] a
         deriving Show
 
 instance Functor ParseResult where
-        fmap f (ParseFailed err) = ParseFailed err
+        fmap _ (ParseFailed err) = ParseFailed err
         fmap f (ParseOk ws x) = ParseOk ws $ f x
         
 instance Applicative ParseResult where