haskell/stackage-server
1
0
Fork 0
mirror of https://github.com/commercialhaskell/stackage-server.git synced 2026-01-23 09:21:56 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Got rid of trivial ghc warnings

Browse Source
This commit is contained in:
Konstantin Zudov 2015-10-06 13:03:31 +03:00
parent 57fd6b8a1b
commit 3fa3df3c4f
5 changed files with 1 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Application.hs
View File

@ -7,9 +7,7 @@ module Application
import Control.Concurrent (forkIO, threadDelay) import Control.Concurrent (forkIO, threadDelay)
import Control.Exception (catch) import Control.Exception (catch)
import Control.Monad.Logger (runLoggingT)
import Data.WebsiteContent import Data.WebsiteContent
import qualified Database.Persist
import Import hiding (catch) import Import hiding (catch)
import Language.Haskell.TH.Syntax (Loc(..)) import Language.Haskell.TH.Syntax (Loc(..))
import Network.Wai (Middleware, responseLBS) import Network.Wai (Middleware, responseLBS)
@ -18,7 +16,6 @@ import Network.Wai.Middleware.RequestLogger
( mkRequestLogger, outputFormat, OutputFormat (..), IPAddrSource (..), destination ( mkRequestLogger, outputFormat, OutputFormat (..), IPAddrSource (..), destination
) )
import qualified Network.Wai.Middleware.RequestLogger as RequestLogger import qualified Network.Wai.Middleware.RequestLogger as RequestLogger
import Settings
import System.Log.FastLogger (newStdoutLoggerSet, newFileLoggerSet, defaultBufSize, fromLogStr) import System.Log.FastLogger (newStdoutLoggerSet, newFileLoggerSet, defaultBufSize, fromLogStr)
import qualified System.Random.MWC as MWC import qualified System.Random.MWC as MWC
import Yesod.Core.Types (loggerSet, Logger (Logger)) import Yesod.Core.Types (loggerSet, Logger (Logger))
@ -26,7 +23,6 @@ import Yesod.Default.Config
import Yesod.Default.Handlers import Yesod.Default.Handlers
import Yesod.Default.Main import Yesod.Default.Main
import Yesod.GitRepo import Yesod.GitRepo
import System.Environment (getEnvironment)
import System.Process (rawSystem) import System.Process (rawSystem)
import Stackage.Database.Cron (loadFromS3) import Stackage.Database.Cron (loadFromS3)
@ -131,8 +127,6 @@ makeFoundation useEcho conf = do
handleAny print refreshDB handleAny print refreshDB
handleAny print $ grRefresh websiteContent' handleAny print $ grRefresh websiteContent'
env <- getEnvironment
let logger = Yesod.Core.Types.Logger loggerSet' getter let logger = Yesod.Core.Types.Logger loggerSet' getter
foundation = App foundation = App
{ settings = conf { settings = conf

8
Foundation.hs
View File

@ -1,11 +1,8 @@
module Foundation where module Foundation where
import ClassyPrelude.Yesod import ClassyPrelude.Yesod
import Data.Slug (HasGenIO (getGenIO), randomSlug, Slug) import Data.Slug (HasGenIO (getGenIO))
import Data.WebsiteContent import Data.WebsiteContent
import qualified Database.Persist
import Database.Persist.Sql (PersistentSqlException (Couldn'tGetSQLConnection))
import qualified Settings
import Settings (widgetFile, Extra (..)) import Settings (widgetFile, Extra (..))
import Settings.Development (development) import Settings.Development (development)
import Settings.StaticFiles import Settings.StaticFiles
@ -13,9 +10,6 @@ import qualified System.Random.MWC as MWC
import Text.Blaze import Text.Blaze
import Text.Hamlet (hamletFile) import Text.Hamlet (hamletFile)
import Types import Types
import Yesod.Auth
import Yesod.Auth.BrowserId
import Yesod.Auth.GoogleEmail2 (authGoogleEmail)
import Yesod.Core.Types (Logger) import Yesod.Core.Types (Logger)
import Yesod.Default.Config import Yesod.Default.Config
import Yesod.GitRepo import Yesod.GitRepo

8
Handler/Package.hs
View File

@ -9,18 +9,10 @@ module Handler.Package
) where ) where
import Data.Char import Data.Char
import Data.Slug
import Data.Tag
import qualified Data.Text as T import qualified Data.Text as T
import qualified Data.Text.Encoding as T import qualified Data.Text.Encoding as T
import qualified Data.Text.Lazy as LT import qualified Data.Text.Lazy as LT
import Distribution.Package.ModuleForest import Distribution.Package.ModuleForest
import Database.Esqueleto ((^.))
import qualified Database.Esqueleto as E
import qualified Database.Persist as P
import Formatting
import Import import Import
import qualified Text.Blaze.Html.Renderer.Text as LT import qualified Text.Blaze.Html.Renderer.Text as LT
import Text.Email.Validate import Text.Email.Validate

1
Handler/Sitemap.hs
View File

@ -2,7 +2,6 @@ module Handler.Sitemap (getSitemapR) where
import Import import Import
import Yesod.Sitemap import Yesod.Sitemap
import qualified Data.Conduit.List as CL
import Stackage.Database import Stackage.Database
type SitemapFor a = forall m. Monad m => Conduit a m (SitemapUrl (Route App)) type SitemapFor a = forall m. Monad m => Conduit a m (SitemapUrl (Route App))

1
Import.hs
View File

@ -9,7 +9,6 @@ import Settings.Development as Import
import Settings.StaticFiles as Import import Settings.StaticFiles as Import
import Types as Import import Types as Import
import Yesod.Auth as Import import Yesod.Auth as Import
import Data.Slug (mkSlug)
import Data.WebsiteContent as Import (WebsiteContent (..)) import Data.WebsiteContent as Import (WebsiteContent (..))
import Data.Text.Read (decimal) import Data.Text.Read (decimal)
import Stackage.Database (SnapName) import Stackage.Database (SnapName)