Fix logical error

2011-09-11 00:35:34 -04:00 · 2011-09-11 00:35:34 -04:00 · fed3f0c0fa
commit fed3f0c0fa
parent dcb27df1fc
1 changed files with 5 additions and 7 deletions
--- a/yesod-core/Yesod/Main.hs
+++ b/yesod-core/Yesod/Main.hs
@ -52,12 +52,10 @@ fromArgsWith load = do

    config <- load env

-    let c = if port args /= 0
+    return $ if port args /= 0
                then config { appPort = port args }
                else config

-    return $ config
-
    where
        argConfig :: ArgConfig
        argConfig = ArgConfig