minor cleanup

This commit is contained in:
Joey Hess 2013-04-17 02:51:59 -04:00
parent 7681dede46
commit 7858f92e1a

View file

@ -389,14 +389,6 @@ mangleCode = declaration_parens
- declarations. -} - declarations. -}
declaration_parens = replace "StaticR Route Static" "StaticR (Route Static)" declaration_parens = replace "StaticR Route Static" "StaticR (Route Static)"
{- Outright hack: It should remove declaration splices, and does
- not, so here I remove the declaration splices used for yesod.
-}
remove_declaration_splices s
| "publicFiles" `isPrefixOf` s = ""
| "mkYesodData" `isPrefixOf` s = ""
| otherwise = s
{- GHC may add full package and version qualifications for {- GHC may add full package and version qualifications for
- symbols from unimported modules. We don't want these. - symbols from unimported modules. We don't want these.
- -