* newlines in comments
This commit is contained in:
parent
cc1bf63468
commit
f591f6b4f7
1 changed files with 2 additions and 1 deletions
|
@ -117,9 +117,10 @@ showIndex acid lang = do
|
|||
addComment :: AcidState Blog -> BlogLang -> EntryId -> ServerPart Response
|
||||
addComment acid lang eId = do
|
||||
now <- liftIO $ getCurrentTime >>= return
|
||||
nCtext <- lookText' "ctext"
|
||||
nComment <- Comment <$> pure now
|
||||
<*> lookText' "cname"
|
||||
<*> lookText' "ctext"
|
||||
<*> pure (entryEscape nCtext)
|
||||
update' acid (AddComment eId nComment)
|
||||
seeOther ("/" ++ show lang ++ "/" ++ show eId) (toResponse())
|
||||
|
||||
|
|
Loading…
Reference in a new issue