Org writer: fix extra blank line inserted after empty list item.

Addresses issue 2 from #7810.

1 files changed, 2 insertions, 2 deletions

diff --git a/src/Text/Pandoc/Writers/Org.hs b/src/Text/Pandoc/Writers/Org.hs
index 0cf33f5b6..d6f3d6e37 100644
--- a/src/Text/Pandoc/Writers/Org.hs
+++ b/src/Text/Pandoc/Writers/Org.hs
@@ -220,7 +220,7 @@ bulletListItemToOrg items = do
   exts <- gets $ writerExtensions . stOptions
   contents <- blockListToOrg (taskListItemToOrg exts items)
   return $ hang 2 "- " contents $$
-          if endsWithPlain items
+          if null items || endsWithPlain items
              then cr
              else blankline
 
@@ -238,7 +238,7 @@ orderedListItemToOrg marker counter items = do
                counter
   return $ hang (T.length marker + 1)
                 (literal marker <> cookie <> space) contents $$
-          if endsWithPlain items
+          if null items || endsWithPlain items
              then cr
              else blankline