From b268b37086816d1a9180fbdad0e613a1ca836da4 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Thu, 12 Jan 2012 12:03:16 +0200
Subject: [PATCH] Fix warnings

---
 yesod-default/Yesod/Default/Config.hs | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/yesod-default/Yesod/Default/Config.hs b/yesod-default/Yesod/Default/Config.hs
index 17ddfbf5..c21c453a 100644
--- a/yesod-default/Yesod/Default/Config.hs
+++ b/yesod-default/Yesod/Default/Config.hs
@@ -40,12 +40,12 @@ parseArgConfig :: IO ArgConfig
 parseArgConfig = do
     args <- getArgs
     (portS, args') <- getPort id args
-    port <-
+    portI <-
         case reads portS of
             (i, _):_ -> return i
             [] -> error $ "Invalid port value: " ++ show portS
-    case args of
-        [e] -> return $ ArgConfig e port
+    case args' of
+        [e] -> return $ ArgConfig e portI
         _ -> do
             pn <- getProgName
             putStrLn $ "Usage: " ++ pn ++ " <environment> [--port <port>]"