From fed3f0c0fa72ea97e680c1918e227330f6bc3214 Mon Sep 17 00:00:00 2001
From: patrick brisbin <pbrisbin@gmail.com>
Date: Sun, 11 Sep 2011 00:35:34 -0400
Subject: [PATCH] Fix logical error

---
 yesod-core/Yesod/Main.hs | 12 +++++-------
 1 file changed, 5 insertions(+), 7 deletions(-)

diff --git a/yesod-core/Yesod/Main.hs b/yesod-core/Yesod/Main.hs
index fab4ead0..bba1fd3e 100644
--- 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