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

put in hack for weird new problem with ghc's emitted splices

Browse source
This commit is contained in:
Joey Hess 2014-05-25 23:03:44 -04:00
parent 6c1ed6ed4b
commit 9b7fa4ad07
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
Build/EvilSplicer.hs
View file

@ -301,6 +301,7 @@ expandExpressionSplice sp 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 = flip_colon mangleCode = flip_colon
. remove_weird_string_hash
. remove_unnecessary_type_signatures . remove_unnecessary_type_signatures
. lambdaparenhack . lambdaparenhack
. lambdaparens . lambdaparens
@ -549,6 +550,11 @@ mangleCode = flip_colon
- The ; is added by case_layout. -} - The ; is added by case_layout. -}
flip_colon = replace "; : _ " "; _ : " flip_colon = replace "; : _ " "; _ : "
{- Sometimes a string will end with ".."#, and the hash needs to be
- removed.
-}
remove_weird_string_hash = replace "\"#" "#"
{- This works around a problem in the expanded template haskell for Yesod {- This works around a problem in the expanded template haskell for Yesod
- type-safe url rendering. - type-safe url rendering.
- -