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
string "(\\"
whitespace
token
wtf <- token
whitespace
string "->"
whitespace
renderer <- token
whitespace
token
string wtf
whitespace
return $ "(toHtml (flip " ++ renderer ++ " "
where