Make the table parser skip non-table inputs faster

This restores and even improves the performance characteristics.
mmark-md · Jan 20, 2018 · 4196ffa · 4196ffa
1 parent 3fed8fb
commit 4196ffa
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/Text/MMark/Parser.hs b/Text/MMark/Parser.hs
@@ -441,6 +441,7 @@ pReferenceDef = do
 pTable :: BParser (Block Isp)
 pTable = do
   (n, headerRow) <- try $ do
+    option False (T.any (== '|') <$> nonEmptyLine) >>= guard
     let pipe' = option False (True <$ pipe)
     l <- pipe'
     headerRow <- NE.sepBy1 cell (try (pipe <* notFollowedBy eol))