add a hack to get build working with new library build
This commit is contained in:
parent
a283f9907b
commit
7e5af65110
1 changed files with 5 additions and 0 deletions
|
@ -299,6 +299,7 @@ mangleCode = flip_colon
|
||||||
. case_layout
|
. case_layout
|
||||||
. case_layout_multiline
|
. case_layout_multiline
|
||||||
. yesod_url_render_hack
|
. yesod_url_render_hack
|
||||||
|
. text_builder_hack
|
||||||
. nested_instances
|
. nested_instances
|
||||||
. collapse_multiline_strings
|
. collapse_multiline_strings
|
||||||
. remove_package_version
|
. remove_package_version
|
||||||
|
@ -515,6 +516,10 @@ yesod_url_render_hack = parsecAndReplace $ do
|
||||||
token :: Parser String
|
token :: Parser String
|
||||||
token = many1 $ satisfy isAlphaNum <|> oneOf "_"
|
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,
|
{- Given a Parser that finds strings it wants to modify,
|
||||||
- and returns the modified string, does a mass
|
- and returns the modified string, does a mass
|
||||||
- find and replace throughout the input string.
|
- find and replace throughout the input string.
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue