aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <fiddlosopher@gmail.com>2012-05-13 14:59:02 -0700
committerJohn MacFarlane <fiddlosopher@gmail.com>2012-05-13 14:59:02 -0700
commit428595469e9e8848f550b758b456a7d0e8b295c1 (patch)
tree5b943fe641b40b50563a4c3319e809e5feaf8fc6 /src/Text
parentbde18a4fc795f6720f2601133a55f14c6006a65c (diff)
downloadpandoc-428595469e9e8848f550b758b456a7d0e8b295c1.tar.gz
LaTeX reader: ensure we don't have extra blank lines at ends of cells.
This can cause LaTeX errors, as they are interpreted as new paragraphs.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/LaTeX.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs
index d32a7122f..77f61263a 100644
--- a/src/Text/Pandoc/Writers/LaTeX.hs
+++ b/src/Text/Pandoc/Writers/LaTeX.hs
@@ -430,7 +430,7 @@ tableRowToLaTeX header aligns widths cols = do
let toCell 0 _ c = c
toCell w a c = "\\parbox" <> valign <>
braces (text (printf "%.2f\\columnwidth" w)) <>
- braces (halign a <> cr <> c <> cr)
+ braces (halign a <> cr <> chomp c <> cr)
let cells = zipWith3 toCell widths aligns renderedCells
return $ hcat $ intersperse (" & ") cells