proper fix for "foo"# -- need MagicHash extension

This commit is contained in:
Joey Hess 2014-05-25 23:27:48 -04:00
parent 062e37d201
commit 346112d49a
Failed to extract signature
2 changed files with 2 additions and 8 deletions

View file

@ -301,7 +301,6 @@ expandExpressionSplice sp lls = concat [before, spliced:padding, end]
{- Tweaks code output by GHC in splices to actually build. Yipes. -}
mangleCode :: String -> String
mangleCode = flip_colon
. remove_weird_string_hash
. remove_unnecessary_type_signatures
. lambdaparenhack
. lambdaparens
@ -550,11 +549,6 @@ mangleCode = flip_colon
- The ; is added by case_layout. -}
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
- type-safe url rendering.
-