haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-16 12:55:47 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Remove redundant imports

Browse Source
This commit is contained in:
Chris Done 2014-05-20 17:30:09 +02:00
parent cf028c7fee
commit 6508d67fab
5 changed files with 0 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Application.hs
View File

@ -26,9 +26,6 @@ import Data.BlobStore (fileStore, storeWrite, cachedS3Store)
import Data.Hackage import Data.Hackage
import Data.Hackage.Views import Data.Hackage.Views
import Data.Conduit.Lazy (MonadActive, monadActive) 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 Control.Monad.Reader (MonadReader (..))
import Filesystem (getModified, removeTree) import Filesystem (getModified, removeTree)
import Data.Time (diffUTCTime) import Data.Time (diffUTCTime)

4
Data/Hackage.hs
View File

@ -13,14 +13,11 @@ import ClassyPrelude.Yesod hiding (get)
import Types import Types
import Data.BlobStore import Data.BlobStore
import Data.Conduit.Lazy (MonadActive (..), lazyConsume) import Data.Conduit.Lazy (MonadActive (..), lazyConsume)
import Control.Monad.Logger (LoggingT)
import qualified Codec.Archive.Tar as Tar import qualified Codec.Archive.Tar as Tar
import Control.Monad.Reader (MonadReader, ask) import Control.Monad.Reader (MonadReader, ask)
import Control.Monad.Trans.Resource (release)
import qualified Data.Text as T import qualified Data.Text as T
import Data.Conduit.Zlib (ungzip, gzip) import Data.Conduit.Zlib (ungzip, gzip)
import Text.XML.Cursor (($//), (&/), content, fromDocument, element, followingSibling) import Text.XML.Cursor (($//), (&/), content, fromDocument, element, followingSibling)
import Text.HTML.DOM (sinkDoc)
import System.IO.Temp (withSystemTempFile, withSystemTempDirectory) import System.IO.Temp (withSystemTempFile, withSystemTempDirectory)
import System.IO (IOMode (ReadMode), openBinaryFile) import System.IO (IOMode (ReadMode), openBinaryFile)
import Control.Monad.Catch (MonadMask) import Control.Monad.Catch (MonadMask)
@ -31,7 +28,6 @@ import Distribution.PackageDescription.PrettyPrint (showGenericPackageDescriptio
import Distribution.PackageDescription (GenericPackageDescription, PackageDescription, packageDescription) import Distribution.PackageDescription (GenericPackageDescription, PackageDescription, packageDescription)
import Control.Exception (throw) import Control.Exception (throw)
import Control.Monad.State.Strict (modify, put, get, execStateT, MonadState) import Control.Monad.State.Strict (modify, put, get, execStateT, MonadState)
import Control.Concurrent.Lifted (fork)
sinkUploadHistory :: Monad m => Consumer (Entity Uploaded) m UploadHistory sinkUploadHistory :: Monad m => Consumer (Entity Uploaded) m UploadHistory
sinkUploadHistory = sinkUploadHistory =

3
Data/Hackage/Views.hs
View File

@ -5,9 +5,6 @@ import Distribution.Package
import Distribution.PackageDescription import Distribution.PackageDescription
import Distribution.Version (anyVersion, intersectVersionRanges, earlierVersion, Version (..), simplifyVersionRange, VersionRange (..)) import Distribution.Version (anyVersion, intersectVersionRanges, earlierVersion, Version (..), simplifyVersionRange, VersionRange (..))
import Distribution.Text (simpleParse) import Distribution.Text (simpleParse)
import Types hiding (Version (..))
import qualified Types
import Model
import Data.NonNull (fromNullable) -- FIXME expose from ClassyPrelude import Data.NonNull (fromNullable) -- FIXME expose from ClassyPrelude
import Data.Hackage (UploadHistory) import Data.Hackage (UploadHistory)
import Data.Time (addUTCTime) import Data.Time (addUTCTime)

1
Handler/HackageViewSdist.hs
View File

@ -1,7 +1,6 @@
module Handler.HackageViewSdist where module Handler.HackageViewSdist where
import Import import Import
import Data.BlobStore
import Data.Hackage import Data.Hackage
import Data.Conduit.Lazy (MonadActive (..)) import Data.Conduit.Lazy (MonadActive (..))

2
Handler/UploadStackage.hs
View File

@ -3,11 +3,9 @@ module Handler.UploadStackage where
import Import hiding (catch, get) import Import hiding (catch, get)
import System.IO.Temp (withSystemTempFile, withSystemTempDirectory, openBinaryTempFile) import System.IO.Temp (withSystemTempFile, withSystemTempDirectory, openBinaryTempFile)
import Crypto.Hash.Conduit (sinkHash) import Crypto.Hash.Conduit (sinkHash)
import Control.Monad.Catch (MonadCatch (..))
import Crypto.Hash (Digest, SHA1) import Crypto.Hash (Digest, SHA1)
import Data.Byteable (toBytes) import Data.Byteable (toBytes)
import qualified Data.ByteString.Base16 as B16 import qualified Data.ByteString.Base16 as B16
import Yesod.Core.Types (HandlerT (HandlerT), unHandlerT)
import Data.Conduit.Zlib (ungzip) import Data.Conduit.Zlib (ungzip)
import qualified Codec.Archive.Tar as Tar import qualified Codec.Archive.Tar as Tar
import qualified Data.Text as T import qualified Data.Text as T