aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-12-05 17:10:33 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2018-12-05 17:10:33 -0800
commitd5e68d43beb176733b77b5afe38f6453902dcf4b (patch)
treeddb46d41ef4612b65bf4ab4a2005a5ef7101f9ff /src/Text
parent38200c0291907fe0e5216b487677c64c90151d0a (diff)
downloadpandoc-d5e68d43beb176733b77b5afe38f6453902dcf4b.tar.gz
RST writer: don't wrap simple table header lines.
Closes #5128.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/RST.hs2
1 files changed, 1 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/RST.hs b/src/Text/Pandoc/Writers/RST.hs
index ea7c04e9b..f27e06fce 100644
--- a/src/Text/Pandoc/Writers/RST.hs
+++ b/src/Text/Pandoc/Writers/RST.hs
@@ -718,7 +718,7 @@ simpleTable opts blocksToDoc headers rows = do
numChars xs = maximum . map offset $ xs
let colWidths = map numChars $ transpose (headerDocs : rowDocs)
let toRow = hsep . zipWith lblock colWidths
- let hline = hsep (map (\n -> text (replicate n '=')) colWidths)
+ let hline = nowrap $ hsep (map (\n -> text (replicate n '=')) colWidths)
let hdr = if all null headers
then mempty
else hline $$ toRow headerDocs