Markdown writer:

Fixed a small problem with lengths of dashed lines in tables.


git-svn-id: https://pandoc.googlecode.com/svn/trunk@659 788f1e2b-df1e-0410-8736-df70ead52e1b

1 files changed, 3 insertions, 3 deletions

diff --git a/src/Text/Pandoc/Writers/Markdown.hs b/src/Text/Pandoc/Writers/Markdown.hs
index a62988b20..66f0acc59 100644
--- a/src/Text/Pandoc/Writers/Markdown.hs
+++ b/src/Text/Pandoc/Writers/Markdown.hs
@@ -196,11 +196,11 @@ blockToMarkdown opts (Table caption aligns widths headers rows) =  do
   let tableWidth = sum widthsInChars
   let maxRowHeight = maximum $ map heightOfBlock (head:rows')
   let isMultilineTable = maxRowHeight > 1
-  let border = if isMultilineTable
-                  then text $ replicate tableWidth '-'
-                  else empty
   let underline = hsep $ 
                   map (\width -> text $ replicate width '-') widthsInChars
+  let border = if isMultilineTable
+                  then text $ replicate (sum widthsInChars + (length widthsInChars - 1)) '-'
+                  else empty
   let spacer = if isMultilineTable
                   then text ""
                   else empty