* changed entryEscape

This commit is contained in:
Vincent Ambo 2012-03-18 23:23:02 +01:00
parent b8a045d163
commit b7e34eba74

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