diff options
Diffstat (limited to 'Build')
| -rw-r--r-- | Build/EvilSplicer.hs | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs index 0f0548917..bcffa3866 100644 --- a/Build/EvilSplicer.hs +++ b/Build/EvilSplicer.hs @@ -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. - |