* removed entryEscape -> Posting pure HTML from now on (pre tag where necessary)

This commit is contained in:
Vincent Ambo 2012-04-06 20:32:25 +02:00
parent d1297a50b5
commit bb981085a6

View file

@ -181,8 +181,8 @@ postEntry acid = do
<*> getLang lang
<*> readCookieValue "sUser"
<*> lookText' "title"
<*> pure (entryEscape nBtext)
<*> pure (entryEscape nMtext)
<*> pure nBtext
<*> pure nMtext
<*> pure now
<*> pure [] -- NYI
<*> pure []
@ -195,12 +195,6 @@ postEntry acid = do
getLang "de" = return DE
getLang "en" = return EN
entryEscape :: Text -> Text
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
entries <- query' acid (LatestEntries lang)
@ -213,7 +207,7 @@ editEntry acid i = do
where
eId = EntryId i
updateEntry :: AcidState Blog -> ServerPart Response
updateEntry :: AcidState Blog -> ServerPart Response -- TODO: Clean this up
updateEntry acid = do
decodeBody tmpPolicy
(eId :: Integer) <- lookRead "eid"
@ -222,8 +216,8 @@ updateEntry acid = do
nBtext <- lookText' "btext"
nMtext <- lookText' "mtext"
let nEntry = entry { title = nTitle
, btext = entryEscape nBtext
, mtext = entryEscape nMtext}
, btext = nBtext
, mtext = nMtext}
update' acid (UpdateEntry nEntry)
seeOther (concat $ intersperse' "/" [show $ lang entry, show eId])
(toResponse ())