diff options
| author | John MacFarlane <fiddlosopher@gmail.com> | 2013-04-19 20:23:50 -0700 |
|---|---|---|
| committer | John MacFarlane <fiddlosopher@gmail.com> | 2013-04-19 20:23:50 -0700 |
| commit | 0ee081ef25bd25594da95378ecd191d1ca9f5239 (patch) | |
| tree | 9cbbe612d94e6a7c389dfe94c6eb29378ee1fd42 /src/Text/Pandoc/Readers | |
| parent | ff6db9eab1f8b71c13954ab512e7e703294fd075 (diff) | |
| download | pandoc-0ee081ef25bd25594da95378ecd191d1ca9f5239.tar.gz | |
Markdown reader: minor code cleanup.
Diffstat (limited to 'src/Text/Pandoc/Readers')
| -rw-r--r-- | src/Text/Pandoc/Readers/Markdown.hs | 4 |
1 files changed, 2 insertions, 2 deletions
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. |