Cleaned up warnings

Yesod/Content.hs

@@ -58,7 +58,6 @@ import qualified Data.Text as T
 import qualified Network.Wai as W
 import qualified Network.Wai.Enumerator as WE
 
-import Data.Function (on)
 import Data.Time
 import System.Locale
 

Yesod/Contrib/Crud.hs

@@ -12,10 +12,8 @@ import Text.Hamlet
 import Control.Monad.IO.Class (liftIO)
 import Web.Routes.Quasi
 import Database.Persist
-import Control.Applicative.Error
 import Yesod.Contrib.Formable hiding (runForm)
 import Yesod.Contrib.Persist
-import Control.Arrow (second)
 import Data.Monoid (mempty)
 
 runForm :: SealedForm (Routes y) a

Yesod/Contrib/Formable.hs

@@ -164,7 +164,7 @@ instance Fieldable NonEmptyString where
 %input!type=text!name=$string.name$!value=$string.val$
 |]
         notEmpty "" = Left ["Must be non-empty"]
-        notEmpty x = Right $ NonEmptyString x
+        notEmpty y = Right $ NonEmptyString y
 
 share2 :: Monad m => (a -> m [b]) -> (a -> m [b]) -> a -> m [b]
 share2 f g a = do

Yesod/Contrib/Persist.hs

@@ -5,7 +5,6 @@ module Yesod.Contrib.Persist
     ) where
 
 import Yesod.Handler
-import Yesod.Yesod
 import Database.Persist
 
 class YesodPersist y where

Yesod/Dispatch.hs

@@ -31,7 +31,6 @@ import Yesod.Internal
 
 import Web.Routes.Quasi
 import Language.Haskell.TH.Syntax
-import Data.List (nub)
 
 import qualified Network.Wai as W
 import qualified Network.Wai.Enumerator as W
@@ -47,10 +46,9 @@ import qualified Data.ByteString.Char8 as B
 import Web.Routes (encodePathInfo)
 
 import qualified Data.ByteString.UTF8 as S
-import qualified Data.ByteString.Lazy.UTF8 as L
 
 import Control.Concurrent.MVar
-import Control.Arrow ((***), first)
+import Control.Arrow ((***))
 
 import Data.Time
 

Yesod/Handler.hs

@@ -81,7 +81,6 @@ import "MonadCatchIO-transformers" Control.Monad.CatchIO (catch)
 import Control.Monad (liftM, ap)
 
 import System.IO
-import qualified Data.ByteString.Lazy as BL
 import qualified Network.Wai as W
 import Control.Monad.Attempt
 import Data.ByteString.UTF8 (toString)

Yesod/Helpers/Static.hs

@@ -109,10 +109,10 @@ staticFiles fp = do
     fs <- qRunIO $ getFileList fp
     concat `fmap` mapM go fs
   where
-    replace '.' = '_'
+    replace' '.' = '_'
-    replace c = c
+    replace' c = c
     go f = do
-        let name = mkName $ intercalate "_" $ map (map replace) f
+        let name = mkName $ intercalate "_" $ map (map replace') f
         f' <- lift f
         let sr = ConE $ mkName "StaticRoute"
         return

Yesod/Json.hs

@@ -21,10 +21,8 @@ import qualified Data.ByteString.Lazy.Char8 as L
 import Data.Char (isControl)
 import Yesod.Hamlet
 import Yesod.Handler
-import Web.Routes.Quasi (Routes)
 import Numeric (showHex)
 import Data.Monoid (Monoid (..))
-import Text.Hamlet
 
 #if TEST
 import Test.Framework (testGroup, Test)