haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-02-04 07:10:25 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Fix warnings; unused things mostly

Browse Source 
@mgsloan just a heads up, pull before you start hacking, might save you
a merge
This commit is contained in:
Chris Done 2015-01-06 13:41:09 +01:00
parent 123c69c00d
commit a980c31371
3 changed files with 20 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Data/Hackage/DeprecationInfo.hs
View File

@ -23,8 +23,8 @@ instance FromJSON HackageDeprecationInfo where
} }
data DeprecationRecord = DeprecationRecord { data DeprecationRecord = DeprecationRecord {
deprecatedPackage :: PackageName, _deprecatedPackage :: PackageName,
deprecatedInFavourOf :: [PackageName] _deprecatedInFavourOf :: [PackageName]
} }
instance FromJSON DeprecationRecord where instance FromJSON DeprecationRecord where

37
Handler/Haddock.hs
View File

@ -9,32 +9,27 @@ module Handler.Haddock
, dirRawIdent , dirRawIdent
, dirGzIdent , dirGzIdent
, dirHoogleIdent , dirHoogleIdent
, createCompressor
) where ) where
import Import import Control.Concurrent (forkIO)
import Data.BlobStore import Crypto.Hash (Digest, SHA1)
import Filesystem (removeTree, isDirectory, createTree, isFile, rename, removeFile, removeDirectory, listDirectory) import Crypto.Hash.Conduit (sinkHash)
import System.Directory (getTemporaryDirectory) import Data.Aeson (withObject)
import Control.Concurrent (forkIO) import Data.BlobStore
import System.IO.Temp (withSystemTempFile, withTempFile, createTempDirectory)
import System.Process (createProcess, proc, cwd, waitForProcess)
import System.Exit (ExitCode (ExitSuccess))
import Network.Mime (defaultMimeLookup)
import Crypto.Hash.Conduit (sinkHash)
import System.IO (IOMode (ReadMode, WriteMode), withBinaryFile, openBinaryFile)
import Data.Conduit.Zlib (gzip)
import System.Posix.Files (createLink)
import qualified Data.ByteString.Base16 as B16 import qualified Data.ByteString.Base16 as B16
import Data.Byteable (toBytes) import Data.Byteable (toBytes)
import Crypto.Hash (Digest, SHA1) import Data.Conduit.Zlib (gzip)
import qualified Filesystem.Path.CurrentOS as F import Data.Slug (SnapSlug, unSlug)
import Data.Slug (SnapSlug, unSlug)
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Yaml as Y import qualified Data.Yaml as Y
import Data.Aeson (withObject) import Filesystem (isDirectory, createTree, isFile, rename, removeFile, removeDirectory)
import qualified Hoogle import qualified Filesystem.Path.CurrentOS as F
import Data.Char (isAlpha) import Import
import Control.Monad.Trans.Resource (allocate, resourceForkIO, release) import Network.Mime (defaultMimeLookup)
import System.IO (IOMode (ReadMode), withBinaryFile)
import System.IO.Temp (withTempFile)
import System.Posix.Files (createLink)
form :: Form FileInfo form :: Form FileInfo
form = renderDivs $ areq fileField "tarball containing docs" form = renderDivs $ areq fileField "tarball containing docs"

4
Handler/PackageList.hs
View File

@ -1,10 +1,10 @@
module Handler.PackageList where module Handler.PackageList where
import qualified Data.HashMap.Strict as M import qualified Data.HashMap.Strict as M
import Data.Time (NominalDiffTime, addUTCTime) import Data.Time (NominalDiffTime)
import qualified Database.Esqueleto as E import qualified Database.Esqueleto as E
import Import import Import
import Yesod.Core.Types (WidgetT (WidgetT), unWidgetT)
-- FIXME maybe just redirect to the LTS or nightly package list -- FIXME maybe just redirect to the LTS or nightly package list
getPackageListR :: Handler Html getPackageListR :: Handler Html