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

* newlines in comments

Browse source
This commit is contained in:
Vincent Ambo 2012-03-15 20:51:53 +01:00
parent cc1bf63468
commit f591f6b4f7
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Main.hs
View file

@ -117,9 +117,10 @@ showIndex acid lang = do
addComment :: AcidState Blog -> BlogLang -> EntryId -> ServerPart Response addComment :: AcidState Blog -> BlogLang -> EntryId -> ServerPart Response
addComment acid lang eId = do addComment acid lang eId = do
now <- liftIO $ getCurrentTime >>= return now <- liftIO $ getCurrentTime >>= return
nCtext <- lookText' "ctext"
nComment <- Comment <$> pure now nComment <- Comment <$> pure now
<*> lookText' "cname" <*> lookText' "cname"
<*> lookText' "ctext" <*> pure (entryEscape nCtext)
update' acid (AddComment eId nComment) update' acid (AddComment eId nComment)
seeOther ("/" ++ show lang ++ "/" ++ show eId) (toResponse()) seeOther ("/" ++ show lang ++ "/" ++ show eId) (toResponse())