aboutsummaryrefslogtreecommitdiff
path: root/src/Text/Pandoc
diff options
context:
space:
mode:
Diffstat (limited to 'src/Text/Pandoc')
-rw-r--r--src/Text/Pandoc/Writers/MediaWiki.hs6
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