From 029fc7166d2a3f4f1aad770aeb061563729f9008 Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 20 Mar 2013 12:45:35 +0200
Subject: [PATCH] Fix some warnings

---
 yesod-routes/Yesod/Routes/TH/Dispatch.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/yesod-routes/Yesod/Routes/TH/Dispatch.hs b/yesod-routes/Yesod/Routes/TH/Dispatch.hs
index 0bf6141b..9770875a 100644
--- a/yesod-routes/Yesod/Routes/TH/Dispatch.hs
+++ b/yesod-routes/Yesod/Routes/TH/Dispatch.hs
@@ -31,6 +31,7 @@ data MkDispatchSettings = MkDispatchSettings
     , mdsGetHandler :: Maybe String -> String -> Q Exp
     }
 
+defaultGetHandler :: Maybe String -> String -> Q Exp
 defaultGetHandler Nothing s = return $ VarE $ mkName $ "handle" ++ s
 defaultGetHandler (Just method) s = return $ VarE $ mkName $ map toLower method ++ s
 
@@ -108,7 +109,7 @@ mkDispatchClause mds ress' = do
     -- with -Wall). Additionally, we want to ensure that none of the code
     -- passed to toDispatch uses variables from the closure to prevent the
     -- dispatch data structure from being rebuilt on each run.
-    getEnv0 <- newName "getEnv0"
+    getEnv0 <- newName "yesod_dispatch_env0"
     req0 <- newName "req0"
     pieces <- [|$(mdsGetPathInfo mds) $(return $ VarE req0)|]
 
@@ -282,7 +283,7 @@ buildCaller :: MkDispatchSettings
             -> [Name] -- ^ ys
             -> Q Exp
 buildCaller mds xrest parents name resDisp ys = do
-    getEnv <- newName "getEnv"
+    getEnv <- newName "yesod_dispatch_env"
     req <- newName "req"
 
     method <- [|$(mdsMethod mds) $(return $ VarE req)|]