haskell/yesod
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Make logger imports and function conditional

Browse Source 
Silences -Wall for unused imports/function if PRODUCTION is defined
This commit is contained in:
patrick brisbin 2011-09-10 20:40:52 -04:00
parent 0723c19afa
commit 5da5fb8174
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod/scaffold/main.hs.cg
View File

@ -5,10 +5,12 @@ import Application (with~sitearg~)
import Network.Wai.Handler.Warp (run) import Network.Wai.Handler.Warp (run)
import System.Console.CmdArgs hiding (args) import System.Console.CmdArgs hiding (args)
import Data.Char (toUpper, toLower) import Data.Char (toUpper, toLower)
import Yesod.Logger (logString, logLazyText, flushLogger, makeLogger)
#ifndef PRODUCTION #ifndef PRODUCTION
import Network.Wai.Middleware.Debug (debugHandle) import Network.Wai.Middleware.Debug (debugHandle)
import Yesod.Logger (logString, logLazyText, flushLogger, makeLogger)
#else
import Yesod.Logger (makeLogger)
#endif #endif
main :: IO () main :: IO ()
@ -24,9 +26,9 @@ main = do
logString logger $ (show env) ++ " application launched, listening on port " ++ show (appPort c) logString logger $ (show env) ++ " application launched, listening on port " ++ show (appPort c)
with~sitearg~ c logger $ run (appPort c) . debugHandle (logHandle logger) with~sitearg~ c logger $ run (appPort c) . debugHandle (logHandle logger)
flushLogger logger flushLogger logger
#endif
where where
logHandle logger msg = logLazyText logger msg >> flushLogger logger logHandle logger msg = logLazyText logger msg >> flushLogger logger
#endif
data ArgConfig = ArgConfig {environment :: String, port :: Int} data ArgConfig = ArgConfig {environment :: String, port :: Int}
deriving (Show, Data, Typeable) deriving (Show, Data, Typeable)