git.iko.soy/typeable/pandoc
on master help sign in
textile reader now imports import Text.Pandoc.Parsing
75fa22cpaul.rivier
src/Text/Pandoc/Readers/Textile.hs+2−1
compare with master
unifiedsplit
@@ -45,6 +45,7 @@ module Text.Pandoc.Readers.Textile (
45 ) where
45 ) where
46import Text.Pandoc.Definition
46import Text.Pandoc.Definition
47import Text.Pandoc.Shared
47import Text.Pandoc.Shared
48+import Text.Pandoc.Parsing
48import Text.Pandoc.Readers.HTML ( htmlTag, htmlEndTag )
49import Text.Pandoc.Readers.HTML ( htmlTag, htmlEndTag )
49import Text.ParserCombinators.Parsec
50import Text.ParserCombinators.Parsec
50import Data.Char ( digitToInt )
51import Data.Char ( digitToInt )
@@ -91,7 +92,7 @@ block = choice blockParsers <?> "block"
91-- | Code Blocks in Textile are between <pre> and </pre>
92-- | Code Blocks in Textile are between <pre> and </pre>
92codeBlock :: GenParser Char ParserState Block
93codeBlock :: GenParser Char ParserState Block
93codeBlock = try $ do
94codeBlock = try $ do
94− htmlTag "pre"
95+ htmlTag False "pre"
95 content <- manyTill anyChar (try $ htmlEndTag "pre" >> blockBreak)
96 content <- manyTill anyChar (try $ htmlEndTag "pre" >> blockBreak)
96 return $ CodeBlock ("",[],[]) content
97 return $ CodeBlock ("",[],[]) content
97
98