From 0ee081ef25bd25594da95378ecd191d1ca9f5239 Mon Sep 17 00:00:00 2001
From: John MacFarlane <fiddlosopher@gmail.com>
Date: Fri, 19 Apr 2013 20:23:50 -0700
Subject: Markdown reader: minor code cleanup.

---
 src/Text/Pandoc/Readers/Markdown.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/Text')

diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index dcab2cea0..84d93afdb 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -667,7 +667,7 @@ listLine = try $ do
                      many (spaceChar)
                      listStart)
   chunks <- manyTill (liftM snd (htmlTag isCommentTag) <|> count 1 anyChar) newline
-  return $ concat chunks ++ "\n"
+  return $ concat chunks
 
 -- parse raw text for one list item, excluding start marker and continuations
 rawListItem :: MarkdownParser a
@@ -677,7 +677,7 @@ rawListItem start = try $ do
   first <- listLine
   rest <- many (notFollowedBy listStart >> listLine)
   blanks <- many blankline
-  return $ concat (first:rest)  ++ blanks
+  return $ unlines (first:rest) ++ blanks
 
 -- continuation of a list item - indented and separated by blankline
 -- or (in compact lists) endline.
-- 
cgit v1.2.3