From 56e9432393029107f9e1af5333b136926b76aedc Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 19 Mar 2013 15:17:59 +0200 Subject: [PATCH] Add an underscore --- yesod-routes/Yesod/Routes/TH/ParseRoute.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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