Browse Source

Got rid of trivial ghc warnings

jsonDiff
Konstantin Zudov 6 years ago
parent
commit
3fa3df3c4f
  1. 6
      Application.hs
  2. 8
      Foundation.hs
  3. 8
      Handler/Package.hs
  4. 1
      Handler/Sitemap.hs
  5. 1
      Import.hs

6
Application.hs

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

8
Foundation.hs

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

8
Handler/Package.hs

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

1
Handler/Sitemap.hs

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

1
Import.hs

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

Loading…
Cancel
Save