Remove warnings in Handler.Haddock

This commit is contained in:
Michael Snoyman 2015-05-14 16:47:10 +03:00
parent 1394c82730
commit 24875df4d2

View File

@ -2,22 +2,7 @@ module Handler.Haddock
( getHaddockR ( getHaddockR
) where ) where
import Control.Concurrent (forkIO) import Import
import Crypto.Hash (Digest, SHA1)
import Crypto.Hash.Conduit (sinkHash)
import Data.Aeson (withObject)
import qualified Data.ByteString.Base16 as B16
import Data.Byteable (toBytes)
import Data.Conduit.Zlib (gzip)
import qualified Data.Text as T
import qualified Data.Yaml as Y
import Filesystem (isDirectory, createTree, isFile, rename, removeFile, removeDirectory)
import qualified Filesystem.Path.CurrentOS as F
import Import
import Network.Mime (defaultMimeLookup)
import System.IO (IOMode (ReadMode), withBinaryFile)
import System.IO.Temp (withTempFile)
import System.Posix.Files (createLink)
import Stackage.Database import Stackage.Database
getHaddockR :: SnapName -> [Text] -> Handler () getHaddockR :: SnapName -> [Text] -> Handler ()