This commit is contained in:
Greg Weber 2012-02-05 08:50:02 -06:00
parent f3087f8e98
commit 0eb62a92c3

View File

@ -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