mirrors/git-annex
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages 1 Wiki Activity Actions

a few nasty hacks for yesod

Browse source
This commit is contained in:
Joey Hess 2013-04-16 15:10:23 -04:00
parent 8b27c366b8
commit a85c9ba561
1 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Build/EvilSplicer.hs
View file

@ -288,7 +288,11 @@ expandExpressionSplice s lls = concat [before, spliced:padding, end]
{- Tweaks code output by GHC in splices to actually build. Yipes. -} {- Tweaks code output by GHC in splices to actually build. Yipes. -}
mangleCode :: String -> String mangleCode :: String -> String
mangleCode = nested_instances . fix_bad_escape . remove_package_version mangleCode = declaration_parens
. remove_declaration_splices
. nested_instances
. fix_bad_escape
. remove_package_version
where where
{- GHC may incorrectly escape "}" within a multi-line string. -} {- GHC may incorrectly escape "}" within a multi-line string. -}
fix_bad_escape = replace " \\}" " }" fix_bad_escape = replace " \\}" " }"
@ -305,6 +309,18 @@ mangleCode = nested_instances . fix_bad_escape . remove_package_version
-} -}
nested_instances = replace " data instance Route" " data Route" nested_instances = replace " data instance Route" " data Route"
{- GHC does not properly parenthesise generated data type
- declarations. -}
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.
- -