From 3fa3df3c4fb35c373a7bd9770c26cdf77d3356b7 Mon Sep 17 00:00:00 2001
From: Konstantin Zudov <konstantin@anche.no>
Date: Tue, 6 Oct 2015 13:03:31 +0300
Subject: [PATCH] Got rid of trivial ghc warnings

---
 Application.hs     | 6 ------
 Foundation.hs      | 8 +-------
 Handler/Package.hs | 8 --------
 Handler/Sitemap.hs | 1 -
 Import.hs          | 1 -
 5 files changed, 1 insertion(+), 23 deletions(-)

diff --git a/Application.hs b/Application.hs
index a8094a0..76bc37b 100644
--- a/Application.hs
+++ b/Application.hs
@@ -7,9 +7,7 @@ module Application
 
 import           Control.Concurrent (forkIO, threadDelay)
 import           Control.Exception (catch)
-import           Control.Monad.Logger (runLoggingT)
 import           Data.WebsiteContent
-import qualified Database.Persist
 import           Import hiding (catch)
 import           Language.Haskell.TH.Syntax (Loc(..))
 import           Network.Wai (Middleware, responseLBS)
@@ -18,7 +16,6 @@ import           Network.Wai.Middleware.RequestLogger
     ( mkRequestLogger, outputFormat, OutputFormat (..), IPAddrSource (..), destination
     )
 import qualified Network.Wai.Middleware.RequestLogger as RequestLogger
-import           Settings
 import           System.Log.FastLogger (newStdoutLoggerSet, newFileLoggerSet, defaultBufSize, fromLogStr)
 import qualified System.Random.MWC as MWC
 import           Yesod.Core.Types (loggerSet, Logger (Logger))
@@ -26,7 +23,6 @@ import           Yesod.Default.Config
 import           Yesod.Default.Handlers
 import           Yesod.Default.Main
 import           Yesod.GitRepo
-import           System.Environment (getEnvironment)
 import           System.Process (rawSystem)
 import           Stackage.Database.Cron (loadFromS3)
 
@@ -131,8 +127,6 @@ makeFoundation useEcho conf = do
         handleAny print refreshDB
         handleAny print $ grRefresh websiteContent'
 
-    env <- getEnvironment
-
     let logger = Yesod.Core.Types.Logger loggerSet' getter
         foundation = App
             { settings = conf
diff --git a/Foundation.hs b/Foundation.hs
index b2a1334..6a2dc4a 100644
--- a/Foundation.hs
+++ b/Foundation.hs
@@ -1,11 +1,8 @@
 module Foundation where
 
 import           ClassyPrelude.Yesod
-import           Data.Slug (HasGenIO (getGenIO), randomSlug, Slug)
+import           Data.Slug (HasGenIO (getGenIO))
 import           Data.WebsiteContent
-import qualified Database.Persist
-import           Database.Persist.Sql (PersistentSqlException (Couldn'tGetSQLConnection))
-import qualified Settings
 import           Settings (widgetFile, Extra (..))
 import           Settings.Development (development)
 import           Settings.StaticFiles
@@ -13,9 +10,6 @@ import qualified System.Random.MWC as MWC
 import           Text.Blaze
 import           Text.Hamlet (hamletFile)
 import           Types
-import           Yesod.Auth
-import           Yesod.Auth.BrowserId
-import           Yesod.Auth.GoogleEmail2 (authGoogleEmail)
 import           Yesod.Core.Types (Logger)
 import           Yesod.Default.Config
 import           Yesod.GitRepo
diff --git a/Handler/Package.hs b/Handler/Package.hs
index 719c822..596e1c6 100644
--- a/Handler/Package.hs
+++ b/Handler/Package.hs
@@ -9,18 +9,10 @@ module Handler.Package
     ) where
 
 import           Data.Char
-import           Data.Slug
-import           Data.Tag
 import qualified Data.Text as T
 import qualified Data.Text.Encoding as T
 import qualified Data.Text.Lazy as LT
 import           Distribution.Package.ModuleForest
-
-import           Database.Esqueleto ((^.))
-import qualified Database.Esqueleto as E
-import qualified Database.Persist as P
-
-import           Formatting
 import           Import
 import qualified Text.Blaze.Html.Renderer.Text as LT
 import           Text.Email.Validate
diff --git a/Handler/Sitemap.hs b/Handler/Sitemap.hs
index f0bc020..226f2a1 100644
--- a/Handler/Sitemap.hs
+++ b/Handler/Sitemap.hs
@@ -2,7 +2,6 @@ module Handler.Sitemap (getSitemapR) where
 
 import Import
 import Yesod.Sitemap
-import qualified Data.Conduit.List as CL
 import Stackage.Database
 
 type SitemapFor a = forall m. Monad m => Conduit a m (SitemapUrl (Route App))
diff --git a/Import.hs b/Import.hs
index 22a8e1a..5664773 100644
--- a/Import.hs
+++ b/Import.hs
@@ -9,7 +9,6 @@ import Settings.Development as Import
 import Settings.StaticFiles as Import
 import Types as Import
 import Yesod.Auth as Import
-import Data.Slug (mkSlug)
 import Data.WebsiteContent as Import (WebsiteContent (..))
 import Data.Text.Read (decimal)
 import Stackage.Database (SnapName)