@@ -45,6 +45,7 @@ module Text.Pandoc.Readers.Textile (
4545 ) where
4646import Text.Pandoc.Definition
4747import Text.Pandoc.Shared
48+import Text.Pandoc.Parsing
4849import Text.Pandoc.Readers.HTML ( htmlTag, htmlEndTag )
4950import Text.ParserCombinators.Parsec
5051import Data.Char ( digitToInt )
@@ -91,7 +92,7 @@ block = choice blockParsers <?> "block"
9192-- | Code Blocks in Textile are between <pre> and </pre>
9293codeBlock :: GenParser Char ParserState Block
9394codeBlock = try $ do
94− htmlTag "pre"
95+ htmlTag False "pre"
9596 content <- manyTill anyChar (try $ htmlEndTag "pre" >> blockBreak)
9697 return $ CodeBlock ("",[],[]) content
9798