diff options
| author |  Joey Hess <joey@kitenet.net> | 2013-05-08 12:52:48 -0400 |
|---|---|---|
| committer | Joey Hess <joey@kitenet.net> | 2013-05-08 12:52:48 -0400 |
| commit | 0aa81627caf3a3140f4620f7406c6710289ba89d (patch) | |
| tree | 67a7123a77b23c6bf9416dc8f557976942607643 /Build/EvilSplicer.hs | |
| parent | b4f31a789a401b9b2de78ff42406d3c6c726ca93 (diff) | |
add a hack to get build working with new library build
Diffstat (limited to 'Build/EvilSplicer.hs')
| -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. |