diff --git a/yesod-routes/Yesod/Routes/Parse.hs b/yesod-routes/Yesod/Routes/Parse.hs
index ade1314a..b17e5fec 100644
--- a/yesod-routes/Yesod/Routes/Parse.hs
+++ b/yesod-routes/Yesod/Routes/Parse.hs
@@ -30,7 +30,7 @@ parseRoutes = QuasiQuoter { quoteExp = x }
             z -> error $ "Overlapping routes: " ++ unlines (map show z)
 
 parseRoutesFile :: FilePath -> Q Exp
-parseRoutesFile parseRoutesFileWith parseRoutes
+parseRoutesFile = parseRoutesFileWith parseRoutes
 
 parseRoutesFileNoCheck :: FilePath -> Q Exp
 parseRoutesFileNoCheck = parseRoutesFileWith parseRoutesNoCheck