mdebray/tvl-depot
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* changed entryEscape

Browse source
This commit is contained in:
Vincent Ambo 2012-03-18 23:23:02 +01:00
parent b8a045d163
commit b7e34eba74
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
src/Main.hs
View file

@ -161,7 +161,10 @@ postEntry acid = do
getLang "en" = return EN
entryEscape :: Text -> Text
entryEscape = T.replace "\n" "<br>"
entryEscape = newlineEscape . newlineRNEscape
where
newlineEscape = T.replace "\n" "<br>"
newlineRNEscape = T.replace "\r\n" "<br>"
entryList :: AcidState Blog -> BlogLang -> ServerPart Response
entryList acid lang = do