From 6508d67fab924db041899821ca8bedb46522c48d Mon Sep 17 00:00:00 2001
From: Chris Done <chrisdone@gmail.com>
Date: Tue, 20 May 2014 17:30:09 +0200
Subject: [PATCH] Remove redundant imports

---
 Application.hs              | 3 ---
 Data/Hackage.hs             | 4 ----
 Data/Hackage/Views.hs       | 3 ---
 Handler/HackageViewSdist.hs | 1 -
 Handler/UploadStackage.hs   | 2 --
 5 files changed, 13 deletions(-)

diff --git a/Application.hs b/Application.hs
index ac40aa7..67a7ba5 100644
--- a/Application.hs
+++ b/Application.hs
@@ -26,9 +26,6 @@ import Data.BlobStore (fileStore, storeWrite, cachedS3Store)
 import Data.Hackage
 import Data.Hackage.Views
 import Data.Conduit.Lazy (MonadActive, monadActive)
-import Control.Monad.Catch (MonadCatch (..))
-import Database.Persist.Sql (SqlPersistT (..))
-import Control.Monad.Trans.Resource.Internal (ResourceT (..))
 import Control.Monad.Reader (MonadReader (..))
 import Filesystem (getModified, removeTree)
 import Data.Time (diffUTCTime)
diff --git a/Data/Hackage.hs b/Data/Hackage.hs
index 4ba7f32..65040c6 100644
--- a/Data/Hackage.hs
+++ b/Data/Hackage.hs
@@ -13,14 +13,11 @@ import ClassyPrelude.Yesod hiding (get)
 import Types
 import Data.BlobStore
 import Data.Conduit.Lazy (MonadActive (..), lazyConsume)
-import Control.Monad.Logger (LoggingT)
 import qualified Codec.Archive.Tar as Tar
 import Control.Monad.Reader (MonadReader, ask)
-import Control.Monad.Trans.Resource (release)
 import qualified Data.Text as T
 import Data.Conduit.Zlib (ungzip, gzip)
 import Text.XML.Cursor (($//), (&/), content, fromDocument, element, followingSibling)
-import Text.HTML.DOM (sinkDoc)
 import System.IO.Temp (withSystemTempFile, withSystemTempDirectory)
 import System.IO (IOMode (ReadMode), openBinaryFile)
 import Control.Monad.Catch (MonadMask)
@@ -31,7 +28,6 @@ import Distribution.PackageDescription.PrettyPrint (showGenericPackageDescriptio
 import Distribution.PackageDescription (GenericPackageDescription, PackageDescription, packageDescription)
 import Control.Exception (throw)
 import Control.Monad.State.Strict (modify, put, get, execStateT, MonadState)
-import Control.Concurrent.Lifted (fork)
 
 sinkUploadHistory :: Monad m => Consumer (Entity Uploaded) m UploadHistory
 sinkUploadHistory =
diff --git a/Data/Hackage/Views.hs b/Data/Hackage/Views.hs
index 0755f24..29b08f0 100644
--- a/Data/Hackage/Views.hs
+++ b/Data/Hackage/Views.hs
@@ -5,9 +5,6 @@ import Distribution.Package
 import Distribution.PackageDescription
 import Distribution.Version (anyVersion, intersectVersionRanges, earlierVersion, Version (..), simplifyVersionRange, VersionRange (..))
 import Distribution.Text (simpleParse)
-import Types hiding (Version (..))
-import qualified Types
-import Model
 import Data.NonNull (fromNullable) -- FIXME expose from ClassyPrelude
 import Data.Hackage (UploadHistory)
 import Data.Time (addUTCTime)
diff --git a/Handler/HackageViewSdist.hs b/Handler/HackageViewSdist.hs
index f2afe51..ede5235 100644
--- a/Handler/HackageViewSdist.hs
+++ b/Handler/HackageViewSdist.hs
@@ -1,7 +1,6 @@
 module Handler.HackageViewSdist where
 
 import Import
-import Data.BlobStore
 import Data.Hackage
 import Data.Conduit.Lazy (MonadActive (..))
 
diff --git a/Handler/UploadStackage.hs b/Handler/UploadStackage.hs
index 3f63b2e..5f1387c 100644
--- a/Handler/UploadStackage.hs
+++ b/Handler/UploadStackage.hs
@@ -3,11 +3,9 @@ module Handler.UploadStackage where
 import Import hiding (catch, get)
 import System.IO.Temp (withSystemTempFile, withSystemTempDirectory, openBinaryTempFile)
 import Crypto.Hash.Conduit (sinkHash)
-import Control.Monad.Catch (MonadCatch (..))
 import Crypto.Hash (Digest, SHA1)
 import Data.Byteable (toBytes)
 import qualified Data.ByteString.Base16 as B16
-import Yesod.Core.Types (HandlerT (HandlerT), unHandlerT)
 import Data.Conduit.Zlib (ungzip)
 import qualified Codec.Archive.Tar as Tar
 import qualified Data.Text as T