@@ -847,6 +847,13 @@ blockListToMarkdown opts blocks = do
847 Plain ils : fixBlocks bs
847 Plain ils : fixBlocks bs
848 fixBlocks (Plain ils : bs) =
848 fixBlocks (Plain ils : bs) =
849 Para ils : fixBlocks bs
849 Para ils : fixBlocks bs
850+ fixBlocks (r@(RawBlock f raw) : b : bs)
852+ , last raw /= '\n' =
854+ Plain{} -> r : fixBlocks (b:bs)
855+ RawBlock{} -> r : fixBlocks (b:bs)
856+ _ -> RawBlock f (raw ++ "\n") : fixBlocks (b:bs) -- #4629
850 fixBlocks (x : xs) = x : fixBlocks xs
857 fixBlocks (x : xs) = x : fixBlocks xs
851 fixBlocks [] = []
858 fixBlocks [] = []
852 isListBlock (BulletList _) = True
859 isListBlock (BulletList _) = True