tighten search and replace slightly

This commit is contained in:
Joey Hess 2013-04-17 13:18:53 -04:00
parent 4bb97d5202
commit cc4d11eadd

View file

@ -486,13 +486,13 @@ yesod_url_render_hack = parsecAndReplace $ do
whitespace whitespace
string "(\\" string "(\\"
whitespace whitespace
token wtf <- token
whitespace whitespace
string "->" string "->"
whitespace whitespace
renderer <- token renderer <- token
whitespace whitespace
token string wtf
whitespace whitespace
return $ "(toHtml (flip " ++ renderer ++ " " return $ "(toHtml (flip " ++ renderer ++ " "
where where