summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Build/EvilSplicer.hs5
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.