diff options
| -rw-r--r-- | src/Text/Pandoc/Readers/Textile.hs | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Textile.hs b/src/Text/Pandoc/Readers/Textile.hs index dba92ecd8..1bd3cc7ec 100644 --- a/src/Text/Pandoc/Readers/Textile.hs +++ b/src/Text/Pandoc/Readers/Textile.hs @@ -45,6 +45,7 @@ module Text.Pandoc.Readers.Textile ( ) where import Text.Pandoc.Definition import Text.Pandoc.Shared +import Text.Pandoc.Parsing import Text.Pandoc.Readers.HTML ( htmlTag, htmlEndTag ) import Text.ParserCombinators.Parsec import Data.Char ( digitToInt ) @@ -91,7 +92,7 @@ block = choice blockParsers <?> "block" -- | Code Blocks in Textile are between <pre> and </pre> codeBlock :: GenParser Char ParserState Block codeBlock = try $ do - htmlTag "pre" + htmlTag False "pre" content <- manyTill anyChar (try $ htmlEndTag "pre" >> blockBreak) return $ CodeBlock ("",[],[]) content |