summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2017-12-04 15:04:47 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2017-12-04 15:04:47 -0800
commitfac3953abf26d5b55fac9bdd6c74c0074660ab7a (patch)
tree2f4a73d5aee45602dde36abba984afe93770851e /src/Text/Pandoc
parentae60e0196c5c12d358002cf3251dfebf07c66da6 (diff)
Markdown reader: Don't parse native div as table caption.
Closes #4119.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Readers/Markdown.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Markdown.hs b/src/Text/Pandoc/Readers/Markdown.hs
index a94c85c32..2d7c12e99 100644
--- a/src/Text/Pandoc/Readers/Markdown.hs
+++ b/src/Text/Pandoc/Readers/Markdown.hs
@@ -1267,7 +1267,7 @@ tableCaption :: PandocMonad m => MarkdownParser m (F Inlines)
tableCaption = try $ do
guardEnabled Ext_table_captions
skipNonindentSpaces
- string ":" <|> string "Table:"
+ (string ":" <* notFollowedBy (string "::")) <|> string "Table:"
trimInlinesF <$> inlines1 <* blanklines
-- Parse a simple table with '---' header and one line per row.