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
@ -47,16 +47,14 @@ fromArgsWith load = do
    let env = read
            $ capitalize
            $ if environment args /= ""
-              then environment args
-              else "development"
+                  then environment args
+                  else "development"

    config <- load env

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

    where
        argConfig :: ArgConfig