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

APPROOT environment variable

Browse Source
This commit is contained in:
Michael Snoyman 2012-04-25 17:32:20 +03:00
parent 12f530a1e7
commit 4c0f523457
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
yesod-default/Yesod/Default/Config.hs
View File

@ -85,9 +85,15 @@ fromArgs getExtra = do
} }
config <- loadConfig cs config <- loadConfig cs
env' <- getEnvironment
let config' =
case lookup "APPROOT" env' of
Nothing -> config
Just ar -> config { appRoot = T.pack ar }
return $ if port args /= 0 return $ if port args /= 0
then config { appPort = port args } then config' { appPort = port args }
else config else config'
-- | Load your development config (when using @'DefaultEnv'@) -- | Load your development config (when using @'DefaultEnv'@)
loadDevelopmentConfig :: IO (AppConfig DefaultEnv ()) loadDevelopmentConfig :: IO (AppConfig DefaultEnv ())