From e61c98507be2f45bd8ea45a56195292ba0fccdca Mon Sep 17 00:00:00 2001
From: Michael Snoyman <michael@snoyman.com>
Date: Wed, 9 Apr 2014 21:34:36 +0300
Subject: [PATCH] Workaround for some meaningless warnings

---
 yesod-routes/Yesod/Routes/TH/Simple.hs | 11 ++++++-----
 yesod-routes/yesod-routes.cabal        |  1 +
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/yesod-routes/Yesod/Routes/TH/Simple.hs b/yesod-routes/Yesod/Routes/TH/Simple.hs
index 647e22ce..88f4b9f8 100644
--- a/yesod-routes/Yesod/Routes/TH/Simple.hs
+++ b/yesod-routes/Yesod/Routes/TH/Simple.hs
@@ -5,11 +5,11 @@ import Prelude hiding (exp)
 import Yesod.Routes.TH
 import Language.Haskell.TH.Syntax
 import Web.PathPieces
-import Data.Maybe (mapMaybe, catMaybes)
+import Data.Maybe (catMaybes)
 import Control.Monad (forM)
 import Data.List (foldl')
-import Data.ByteString (ByteString)
 import Control.Arrow (second)
+import System.Random (randomRIO)
 
 data SDC = SDC
     { clause404 :: Clause
@@ -25,9 +25,10 @@ data SDC = SDC
 -- Since 1.2.1
 mkSimpleDispatchClause :: MkDispatchSettings -> [ResourceTree a] -> Q Clause
 mkSimpleDispatchClause MkDispatchSettings {..} resources = do
-    envName <- newName "env"
-    reqName <- newName "req"
-    helperName <- newName "helper"
+    suffix <- qRunIO $ randomRIO (1000, 9999 :: Int)
+    envName <- newName $ "env" ++ show suffix
+    reqName <- newName $ "req" ++ show suffix
+    helperName <- newName $ "helper" ++ show suffix
 
     let envE = VarE envName
         reqE = VarE reqName
diff --git a/yesod-routes/yesod-routes.cabal b/yesod-routes/yesod-routes.cabal
index bf0f3a8a..3ae67e54 100644
--- a/yesod-routes/yesod-routes.cabal
+++ b/yesod-routes/yesod-routes.cabal
@@ -22,6 +22,7 @@ library
                    , template-haskell
                    , path-pieces               >= 0.1      && < 0.2
                    , bytestring
+                   , random
 
     exposed-modules: Yesod.Routes.Dispatch
                      Yesod.Routes.TH