diff options
| author | despresc <christian.j.j.despres@gmail.com> | 2020-03-28 19:06:16 -0400 |
|---|---|---|
| committer | despresc <christian.j.j.despres@gmail.com> | 2020-04-15 23:03:22 -0400 |
| commit | f8ce38975b547fe7fc8c12ccee3a940b35d8b9cf (patch) | |
| tree | 5fa2b0067146fa26a2a9b01e4f645784cd4eedb1 /src/Text/Pandoc/Writers/Markdown.hs | |
| parent | 7254a2ae0ba40b29c04b8924f27739614229432b (diff) | |
| download | pandoc-f8ce38975b547fe7fc8c12ccee3a940b35d8b9cf.tar.gz | |
Remove the onlySimpleCellBodies function from Shared
Diffstat (limited to 'src/Text/Pandoc/Writers/Markdown.hs')
| -rw-r--r-- | src/Text/Pandoc/Writers/Markdown.hs | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs index 5501b49ee..4d4d02028 100644 --- a/src/Text/Pandoc/Writers/Markdown.hs +++ b/src/Text/Pandoc/Writers/Markdown.hs @@ -582,7 +582,7 @@ blockToMarkdown' opts t@(Table _ blkCapt specs _ thead tbody tfoot) = do let caption'' = if null caption || not (isEnabled Ext_table_captions opts) then blankline else blankline $$ (": " <> caption') $$ blankline - let hasSimpleCells = onlySimpleTableCells $ thead <> tbody <> tfoot + let hasSimpleCells = onlySimpleTableCells $ headers : rows let isSimple = hasSimpleCells && all (==0) widths let isPlainBlock (Plain _) = True isPlainBlock _ = False |