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

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

@ -52,12 +52,10 @@ fromArgsWith load = do
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
argConfig = ArgConfig argConfig = ArgConfig