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

use #ifdef not #if

Browse Source
This commit is contained in:
Greg Weber 2012-03-14 09:27:29 -07:00
parent 28cf60e6e7
commit 94f85edea2
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
yesod/scaffold/deploy/Procfile.cg
View File

@ -20,7 +20,7 @@
# * add code in Application.hs to use the heroku package and load the connection parameters. # * add code in Application.hs to use the heroku package and load the connection parameters.
# The below works for Postgresql. # The below works for Postgresql.
# #
# #if !DEVELOPMENT # #ifndef DEVELOPMENT
# import qualified Web.Heroku # import qualified Web.Heroku
# #endif # #endif
# #
@ -47,7 +47,7 @@
# logWare = logCallback (logBS setLogger) # logWare = logCallback (logBS setLogger)
##endif ##endif
# #
# #if !DEVELOPMENT # #ifndef DEVELOPMENT
# canonicalizeKey :: (Text, val) -> (Text, val) # canonicalizeKey :: (Text, val) -> (Text, val)
# canonicalizeKey ("dbname", val) = ("database", val) # canonicalizeKey ("dbname", val) = ("database", val)
# canonicalizeKey pair = pair # canonicalizeKey pair = pair
@ -62,7 +62,7 @@
# #
# loadHerokuConfig :: IO AT.Value # loadHerokuConfig :: IO AT.Value
# loadHerokuConfig = do # loadHerokuConfig = do
# #if DEVELOPMENT # #ifdef DEVELOPMENT
# return $ AT.Object M.empty # return $ AT.Object M.empty
# #else # #else
# Web.Heroku.dbConnParams >>= return . toMapping . map canonicalizeKey # Web.Heroku.dbConnParams >>= return . toMapping . map canonicalizeKey