aboutsummaryrefslogtreecommitdiff
path: root/src/Text
diff options
context:
space:
mode:
authorJohn MacFarlane <jgm@berkeley.edu>2018-11-07 15:27:02 -0800
committerJohn MacFarlane <jgm@berkeley.edu>2018-11-07 15:27:02 -0800
commit65ca95eeea0acafeda46ece1d99c62008b20dcfc (patch)
treedaa2231a49be9ce7b87fa1c5ad662e41e853a102 /src/Text
parentff55530c038e954d6736984a31032b21162d1812 (diff)
downloadpandoc-65ca95eeea0acafeda46ece1d99c62008b20dcfc.tar.gz
Texinfo writer: add blank line before `@menu` section.
Closes #5055.
Diffstat (limited to 'src/Text')
-rw-r--r--src/Text/Pandoc/Writers/Texinfo.hs3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Writers/Texinfo.hs b/src/Text/Pandoc/Writers/Texinfo.hs
index 21d1f4eca..4a4dde461 100644
--- a/src/Text/Pandoc/Writers/Texinfo.hs
+++ b/src/Text/Pandoc/Writers/Texinfo.hs
@@ -328,7 +328,8 @@ blockListToTexinfo (x:xs) = do
lines' <- mapM makeMenuLine menu
let menu' = if null lines'
then empty
- else text "@menu" $$
+ else blankline $$
+ text "@menu" $$
vcat lines' $$
text "@end menu"
after' <- blockListToTexinfo after