diff --git a/yesod-routes/Yesod/Routes/TH/ParseRoute.hs b/yesod-routes/Yesod/Routes/TH/ParseRoute.hs
index 59b6689d..38d2f142 100644
--- a/yesod-routes/Yesod/Routes/TH/ParseRoute.hs
+++ b/yesod-routes/Yesod/Routes/TH/ParseRoute.hs
@@ -34,7 +34,7 @@ mkParseRouteClauses :: [ResourceTree a] -> Q [Clause]
 mkParseRouteClauses ress' = do
     pieces <- newName "pieces"
     dispatch <- newName "dispatch"
-    query <- newName "query"
+    query <- newName "_query"
 
     -- The 'D.Route's used in the dispatch function
     routes <- mapM (buildRoute query) ress