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
) where
import Control.Concurrent (forkIO)
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 Import
import Stackage.Database
getHaddockR :: SnapName -> [Text] -> Handler ()