From 75fa22c30039d1b4b9db46b3fe02591fa4152806 Mon Sep 17 00:00:00 2001 From: "paul.rivier" Date: Thu, 16 Sep 2010 11:54:34 +0200 Subject: textile reader now imports import Text.Pandoc.Parsing --- src/Text/Pandoc/Readers/Textile.hs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) 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
 and 
codeBlock :: GenParser Char ParserState Block codeBlock = try $ do - htmlTag "pre" + htmlTag False "pre" content <- manyTill anyChar (try $ htmlEndTag "pre" >> blockBreak) return $ CodeBlock ("",[],[]) content -- cgit v1.2.3