diff options
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Writers/MediaWiki.hs | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/MediaWiki.hs b/src/Text/Pandoc/Writers/MediaWiki.hs index d14865612..0da8bc98c 100644 --- a/src/Text/Pandoc/Writers/MediaWiki.hs +++ b/src/Text/Pandoc/Writers/MediaWiki.hs @@ -306,7 +306,11 @@ tableCellToMediaWiki headless rownum (alignment, width, bs) = do let attr = if null attrs then "" else unwords attrs ++ "|" - return $ marker ++ attr ++ trimr contents + let sep = case bs of + [Plain _] -> " " + [Para _] -> " " + _ -> "\n" + return $ marker ++ attr ++ sep ++ trimr contents alignmentToString :: Alignment -> String alignmentToString alignment = case alignment of |