From 5cb02e2a9b8339e0665a8f555ff37fccc3389106 Mon Sep 17 00:00:00 2001 From: Michael Snoyman Date: Tue, 4 Mar 2014 15:02:01 +0200 Subject: [PATCH] Minor tweaks --- yesod-core/yesod-core.cabal | 2 +- yesod-routes/Yesod/Routes/TH/Simple.hs | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/yesod-core/yesod-core.cabal b/yesod-core/yesod-core.cabal index 7982fde0..3740f781 100644 --- a/yesod-core/yesod-core.cabal +++ b/yesod-core/yesod-core.cabal @@ -25,7 +25,7 @@ extra-source-files: library build-depends: base >= 4.3 && < 5 , time >= 1.1.4 - , yesod-routes >= 1.2 && < 1.3 + , yesod-routes >= 1.2.1 && < 1.3 , wai >= 1.4 , wai-extra >= 1.3 , bytestring >= 0.9.1.4 diff --git a/yesod-routes/Yesod/Routes/TH/Simple.hs b/yesod-routes/Yesod/Routes/TH/Simple.hs index 5af3c975..647e22ce 100644 --- a/yesod-routes/Yesod/Routes/TH/Simple.hs +++ b/yesod-routes/Yesod/Routes/TH/Simple.hs @@ -83,7 +83,7 @@ mkSimpleDispatchClause MkDispatchSettings {..} resources = do let restE = VarE restName restP = VarP restName - helperName <- newName "helper" + helperName <- newName $ "helper" ++ name let helperE = VarE helperName return $ Clause