aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/Text/Pandoc/Writers/Markdown.hs6
-rw-r--r--test/command/3734.md24
2 files changed, 6 insertions, 24 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index fc25cde44..8f8b7ec14 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -628,15 +628,15 @@ blockToMarkdown' opts t@(Table caption aligns widths headers rows) = do
writerColumns opts >= 8 * numcols -> (id,) <$>
gridTable opts blockListToMarkdown
(all null headers) aligns' widths' headers rows
- | isEnabled Ext_raw_html opts -> fmap (id,) $
- (text . T.unpack) <$>
- (writeHtml5String opts{ writerTemplate = Nothing } $ Pandoc nullMeta [t])
| hasSimpleCells &&
isEnabled Ext_pipe_tables opts -> do
rawHeaders <- padRow <$> mapM (blockListToMarkdown opts) headers
rawRows <- mapM (fmap padRow . mapM (blockListToMarkdown opts))
rows
(id,) <$> pipeTable (all null headers) aligns' rawHeaders rawRows
+ | isEnabled Ext_raw_html opts -> fmap (id,) $
+ (text . T.unpack) <$>
+ (writeHtml5String opts{ writerTemplate = Nothing } $ Pandoc nullMeta [t])
| otherwise -> return $ (id, text "[TABLE]")
return $ nst (tbl $$ caption'') $$ blankline
blockToMarkdown' opts (BulletList items) = do
diff --git a/test/command/3734.md b/test/command/3734.md
index 16803256b..7549fb053 100644
--- a/test/command/3734.md
+++ b/test/command/3734.md
@@ -4,27 +4,9 @@
|--------------|-------|--------------------------------------------------------------------------|
| aaaaaaaaaaaa | | cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc |
^D
-<table>
-<colgroup>
-<col style="width: 14%" />
-<col style="width: 7%" />
-<col style="width: 77%" />
-</colgroup>
-<thead>
-<tr class="header">
-<th>aaaaaaaaaaaa</th>
-<th>bbbbb</th>
-<th>ccccccccccc</th>
-</tr>
-</thead>
-<tbody>
-<tr class="odd">
-<td>aaaaaaaaaaaa</td>
-<td></td>
-<td>cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc</td>
-</tr>
-</tbody>
-</table>
+| aaaaaaaaaaaa | bbbbb | ccccccccccc |
+|--------------|-------|--------------------------------------------------------------------------|
+| aaaaaaaaaaaa | | cccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccccc |
```
```