@@ -60,7 +60,7 @@ import Text.Pandoc.Parsing
60import Text.Pandoc.Readers.HTML ( htmlTag, isBlockTag, isInlineTag )
60import Text.Pandoc.Readers.HTML ( htmlTag, isBlockTag, isInlineTag )
61import Text.Pandoc.Shared (trim)
61import Text.Pandoc.Shared (trim)
62import Text.Pandoc.Readers.LaTeX ( rawLaTeXInline, rawLaTeXBlock )
62import Text.Pandoc.Readers.LaTeX ( rawLaTeXInline, rawLaTeXBlock )
63−import Text.HTML.TagSoup (parseTags, innerText, fromAttrib, Tag(..))
63+import Text.HTML.TagSoup (fromAttrib, Tag(..))
64import Text.HTML.TagSoup.Match
64import Text.HTML.TagSoup.Match
65import Data.List ( intercalate, transpose, intersperse )
65import Data.List ( intercalate, transpose, intersperse )
66import Data.Char ( digitToInt, isUpper )
66import Data.Char ( digitToInt, isUpper )
@@ -182,8 +182,7 @@ trimTrailingNewlines = reverse . dropWhile (=='\n') . reverse
182codeBlockPre :: Parser [Char] ParserState Blocks
182codeBlockPre :: Parser [Char] ParserState Blocks
183codeBlockPre = try $ do
183codeBlockPre = try $ do
184 (t@(TagOpen _ attrs),_) <- htmlTag (tagOpen (=="pre") (const True))
184 (t@(TagOpen _ attrs),_) <- htmlTag (tagOpen (=="pre") (const True))
185− result' <- (innerText . parseTags) `fmap` -- remove internal tags
186− manyTill anyChar (htmlTag (tagClose (=="pre")))
185+ result' <- manyTill anyChar (htmlTag (tagClose (=="pre")))
187 optional blanklines
186 optional blanklines
188 -- drop leading newline if any
187 -- drop leading newline if any
189 let result'' = case result' of
188 let result'' = case result' of