diff options
| author | Vincent Ambo <v.ambo@me.com> | 2012-03-18T22·23+0100 |
|---|---|---|
| committer | Vincent Ambo <v.ambo@me.com> | 2012-03-18T22·23+0100 |
| commit | b7e34eba74918c04ab247ba7d761ddc3e6c46321 (patch) | |
| tree | a3b65a39341eec7dad0fa944d481cdf2979ec606 /src/Main.hs | |
| parent | b8a045d163a50c138bfe6300fc39b5cddc40f5d1 (diff) | |
* changed entryEscape
Diffstat (limited to 'src/Main.hs')
| -rw-r--r-- | src/Main.hs | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/src/Main.hs b/src/Main.hs index 8adef253a591..84fa0d9dd326 100644 --- a/src/Main.hs +++ b/src/Main.hs @@ -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 |