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

More performance improvements on pipe tables.

Browse source
This commit is contained in:
John MacFarlane 2012-07-24 09:08:54 -07:00
parent bab816cefe
commit 2a4b987cc3
1 changed files with 1 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

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

@ -913,7 +913,6 @@ pipeTable headless = tableWith (pipeTableHeader headless)
pipeTableHeader :: Bool -- ^ Headerless table
-> Parser [Char] ParserState ([[Block]], [Alignment], [Int])
pipeTableHeader headless = do
scanForPipe
try $ do
heads <- if headless
then return $ repeat []
@ -965,7 +964,7 @@ table = try $ do
Table _ aligns widths heads lines' <-
multilineTable False <|> simpleTable True <|>
simpleTable False <|> multilineTable True <|>
pipeTable False <|> pipeTable True <|>
(scanForPipe >> (pipeTable False <|> pipeTable True)) <|>
gridTable False <|> gridTable True <?> "table"
caption <- if null frontCaption
then option [] tableCaption