diff options
| author | paul.rivier <paul.r.ml@gmail.com> | 2010-09-16 11:54:34 +0200 |
|---|---|---|
| committer | John MacFarlane <jgm@berkeley.edu> | 2010-12-03 23:10:50 -0800 |
| commit | 75fa22c30039d1b4b9db46b3fe02591fa4152806 (patch) | |
| tree | 3c21448d4e33af9980d0138c56b6788448a4fb66 | |
| parent | d532c72c5b3249ae83733d9fe064764d123603c0 (diff) | |
| download | pandoc-75fa22c30039d1b4b9db46b3fe02591fa4152806.tar.gz | |
textile reader now imports import Text.Pandoc.Parsing
| -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 |