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

Fix logical error

Browse Source
This commit is contained in:
patrick brisbin 2011-09-11 00:35:34 -04:00
parent dcb27df1fc
commit fed3f0c0fa
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
yesod-core/Yesod/Main.hs
View File

@ -47,16 +47,14 @@ fromArgsWith load = do
let env = read let env = read
$ capitalize $ capitalize
$ if environment args /= "" $ if environment args /= ""
then environment args then environment args
else "development" else "development"
config <- load env config <- load env
let c = if port args /= 0 return $ if port args /= 0
then config { appPort = port args } then config { appPort = port args }
else config else config
return $ config
where where
argConfig :: ArgConfig argConfig :: ArgConfig