Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

RST writer: avoid extra blank line after empty list item.

Browse source 
See #7810 (2).
This commit is contained in:
John MacFarlane 2022-01-08 21:24:41 -08:00
parent 8736fe11ee
commit 1b7bdb1016
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Text/Pandoc/Writers/RST.hs
View file

@ -365,7 +365,7 @@ bulletListItemToRST :: PandocMonad m => [Block] -> RST m (Doc Text)
bulletListItemToRST items = do
contents <- blockListToRST items
return $ hang 3 "- " contents $$
if endsWithPlain items
if null items || endsWithPlain items
then cr
else blankline
@ -378,7 +378,7 @@ orderedListItemToRST marker items = do
contents <- blockListToRST items
let marker' = marker <> " "
return $ hang (T.length marker') (literal marker') contents $$
if endsWithPlain items
if null items || endsWithPlain items
then cr
else blankline