@@ -883,8 +883,7 @@ listContinuationLine = try $ do
883883 notFollowedBy' listStart
884884 notFollowedByHtmlCloser
885885 optional indentSpaces
886− result <- anyLine
887− return $ result ++ "\n"
886+ anyLineNewline
888887
889888listItem :: PandocMonad m
890889 => MarkdownParser m a
@@ -956,7 +955,7 @@ defRawBlock :: PandocMonad m => Bool -> MarkdownParser m String
956955defRawBlock compact = try $ do
957956 hasBlank <- option False $ blankline >> return True
958957 defListMarker
959− firstline <- anyLine
958+ firstline <- anyLineNewline
960959 let dline = try
961960 ( do notFollowedBy blankline
962961 notFollowedByHtmlCloser
@@ -971,7 +970,7 @@ defRawBlock compact = try $ do
971970 ln <- indentSpaces >> notFollowedBy blankline >> anyLine
972971 lns <- many dline
973972 return $ trailing ++ unlines (ln:lns)
974− return $ trimr (firstline ++ "\n" ++ unlines rawlines ++ cont) ++
973+ return $ trimr (firstline ++ unlines rawlines ++ cont) ++
975974 if hasBlank || not (null cont) then "\n\n" else ""
976975
977976definitionList :: PandocMonad m => MarkdownParser m (F Blocks)