Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

textile reader now imports import Text.Pandoc.Parsing

Browse source
This commit is contained in:
paul.rivier 2010-09-16 11:54:34 +02:00 committed by John MacFarlane
parent d532c72c5b
commit 75fa22c300
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
src/Text/Pandoc/Readers/Textile.hs
View file

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