diff options
| -rw-r--r-- | Build/EvilSplicer.hs | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/Build/EvilSplicer.hs b/Build/EvilSplicer.hs index 642e2a03e..8f203437a 100644 --- a/Build/EvilSplicer.hs +++ b/Build/EvilSplicer.hs @@ -299,6 +299,7 @@ mangleCode = flip_colon . case_layout . case_layout_multiline . yesod_url_render_hack + . text_builder_hack . nested_instances . collapse_multiline_strings . remove_package_version @@ -515,6 +516,10 @@ yesod_url_render_hack = parsecAndReplace $ do token :: Parser String token = many1 $ satisfy isAlphaNum <|> oneOf "_" +{- Use exported symbol. -} +text_builder_hack :: String -> String +text_builder_hack = replace "Data.Text.Lazy.Builder.Internal.fromText" "Data.Text.Lazy.Builder.fromText" + {- Given a Parser that finds strings it wants to modify, - and returns the modified string, does a mass - find and replace throughout the input string. |