@@ -252,7 +252,7 @@ blockToRST (Table caption _ widths headers rows) = do
252252blockToRST (BulletList items) = do
253253 contents <- mapM bulletListItemToRST items
254254 -- ensure that sublists have preceding blank line
255− return $ blankline $$ vcat contents $$ blankline
255+ return $ blankline $$ chomp (vcat contents) $$ blankline
256256blockToRST (OrderedList (start, style', delim) items) = do
257257 let markers = if start == 1 && style' == DefaultStyle && delim == DefaultDelim
258258 then take (length items) $ repeat "#."
@@ -264,17 +264,17 @@ blockToRST (OrderedList (start, style', delim) items) = do
264264 contents <- mapM (\(item, num) -> orderedListItemToRST item num) $
265265 zip markers' items
266266 -- ensure that sublists have preceding blank line
267− return $ blankline $$ vcat contents $$ blankline
267+ return $ blankline $$ chomp (vcat contents) $$ blankline
268268blockToRST (DefinitionList items) = do
269269 contents <- mapM definitionListItemToRST items
270270 -- ensure that sublists have preceding blank line
271− return $ blankline $$ vcat contents $$ blankline
271+ return $ blankline $$ chomp (vcat contents) $$ blankline
272272
273273-- | Convert bullet list item (list of blocks) to RST.
274274bulletListItemToRST :: [Block] -> State WriterState Doc
275275bulletListItemToRST items = do
276276 contents <- blockListToRST items
277− return $ hang 3 "- " contents
277+ return $ hang 3 "- " $ contents <> cr
278278
279279-- | Convert ordered list item (a list of blocks) to RST.
280280orderedListItemToRST :: String -- ^ marker for list item
@@ -283,7 +283,7 @@ orderedListItemToRST :: String -- ^ marker for list item
283283orderedListItemToRST marker items = do
284284 contents <- blockListToRST items
285285 let marker' = marker ++ " "
286− return $ hang (length marker') (text marker') contents
286+ return $ hang (length marker') (text marker') $ contents <> cr
287287
288288-- | Convert defintion list item (label, list of blocks) to RST.
289289definitionListItemToRST :: ([Inline], [[Block]]) -> State WriterState Doc
@@ -291,7 +291,7 @@ definitionListItemToRST (label, defs) = do
291291 label' <- inlineListToRST label
292292 contents <- liftM vcat $ mapM blockListToRST defs
293293 tabstop <- get >>= (return . writerTabStop . stOptions)
294− return $ label' $$ nest tabstop (nestle contents)
294+ return $ label' $$ nest tabstop (nestle contents <> cr)
295295
296296-- | Convert list of Pandoc block elements to RST.
297297blockListToRST :: [Block] -- ^ List of block elements