From da1e99c03ad80694bb738e10159ecd87b08e9140 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Tue, 24 Jul 2012 09:19:52 -0700 Subject: Fixed performance improvement to tables. --- src/Text/Pandoc/Readers/Markdown.hs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'src/Text') diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs index fb8910583..e9ed32f5f 100644 --- a/src/Text/Pandoc/Readers/Markdown.hs +++ b/src/Text/Pandoc/Readers/Markdown.hs @@ -962,9 +962,9 @@ table :: Parser [Char] ParserState Block table = try $ do frontCaption <- option [] tableCaption Table _ aligns widths heads lines' <- + try (scanForPipe >> (pipeTable True <|> pipeTable False)) <|> multilineTable False <|> simpleTable True <|> simpleTable False <|> multilineTable True <|> - (scanForPipe >> (pipeTable False <|> pipeTable True)) <|> gridTable False <|> gridTable True "table" caption <- if null frontCaption then option [] tableCaption -- cgit v1.2.3