* newlines in comments

1 files changed, 2 insertions, 1 deletions

diff --git a/src/Main.hs b/src/Main.hs
index 86d51bdc9a9a..fe111f76668a 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -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())