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

DEBUG -> PRODUCTION

Browse Source
This commit is contained in:
Michael Snoyman 2010-08-29 11:15:50 +03:00
parent c4c3d0b10d
commit 0691d69f19
1 changed files with 14 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
scaffold.hs
View File

@ -113,7 +113,6 @@ Flag production
executable simple-server
if flag(production)
Buildable: False
cpp-options: -DDEBUG
main-is: simple-server.hs
build-depends: base >= 4 && < 5,
yesod >= 0.5 && < 0.6,
@ -132,6 +131,7 @@ executable fastcgi
Buildable: True
else
Buildable: False
cpp-options: -DPRODUCTION
main-is: fastcgi.hs
build-depends: wai-handler-fastcgi
ghc-options: -Wall
@ -351,7 +351,6 @@ with~sitearg~ f = Settings.withConnectionPool $ \p -> do
module Handler.Root where
import ~sitearg~
import Control.Applicative
getRootR :: Handler RepHtml
getRootR = do
@ -406,31 +405,31 @@ import Database.Persist.Sqlite
import Yesod (MonadCatchIO)
hamletFile :: FilePath -> Q Exp
#ifdef DEBUG
hamletFile x = H.hamletFileDebug $ "hamlet/" ++ x ++ ".hamlet"
#else
#ifdef PRODUCTION
hamletFile x = H.hamletFile $ "hamlet/" ++ x ++ ".hamlet"
#else
hamletFile x = H.hamletFileDebug $ "hamlet/" ++ x ++ ".hamlet"
#endif
cassiusFile :: FilePath -> Q Exp
#ifdef DEBUG
cassiusFile x = H.cassiusFileDebug $ "cassius/" ++ x ++ ".cassius"
#else
#ifdef PRODUCTION
cassiusFile x = H.cassiusFile $ "cassius/" ++ x ++ ".cassius"
#else
cassiusFile x = H.cassiusFileDebug $ "cassius/" ++ x ++ ".cassius"
#endif
juliusFile :: FilePath -> Q Exp
#ifdef DEBUG
juliusFile x = H.juliusFileDebug $ "julius/" ++ x ++ ".julius"
#else
#ifdef PRODUCTION
juliusFile x = H.juliusFile $ "julius/" ++ x ++ ".julius"
#else
juliusFile x = H.juliusFileDebug $ "julius/" ++ x ++ ".julius"
#endif
connStr :: String
#ifdef DEBUG
connStr = "debug.db3"
#else
#ifdef PRODUCTION
connStr = "production.db3"
#else
connStr = "debug.db3"
#endif
connectionCount :: Int
@ -443,7 +442,7 @@ runConnectionPool :: MonadCatchIO m => SqlPersist m a -> ConnectionPool -> m a
runConnectionPool = runSqlPool
approot :: String
#ifdef DEBUG
#ifdef PRODUCTION
approot = "http://localhost:3000"
#else
approot = "http://localhost:3000"