aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2012-08-02 21:07:40 -0700
committerJohn MacFarlane <jgm@berkeley.edu>2012-08-02 21:07:40 -0700
commit214fef9e27963b0984933ed97bd4554460e102e6 (patch)
treee591df4889d42120515331e2c6d046998378aa61 /src/Text/Pandoc
parentb98049ee6c126fb6a6834e0525b37430490131dd (diff)
downloadpandoc-214fef9e27963b0984933ed97bd4554460e102e6.tar.gz
Made markdown writer sensitive to Ext_table_captions.
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/Markdown.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index fccdd66d5..f8681825f 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -280,7 +280,7 @@ blockToMarkdown opts (BlockQuote blocks) = do
return $ (prefixed leader contents) <> blankline
blockToMarkdown opts (Table caption aligns widths headers rows) = do
caption' <- inlineListToMarkdown opts caption
- let caption'' = if null caption
+ let caption'' = if null caption || not (isEnabled Ext_table_captions opts)
then empty
else blankline <> ": " <> caption' <> blankline
headers' <- mapM (blockListToMarkdown opts) headers