@@ -397,7 +397,9 @@ singleParaToPlain blks
397397singleParaToPlain blks = blks
398398
399399cellToBlocks :: Cell -> DocxContext Blocks
400−cellToBlocks (Cell bps) = concatReduce <$> mapM bodyPartToBlocks bps
400+cellToBlocks (Cell bps) = do
401+ blks <- concatReduce <$> mapM bodyPartToBlocks bps
402+ return $ fromList $ blocksToDefinitions $ blocksToBullets $ toList blks
401403
402404rowToBlocksList :: Row -> DocxContext [Blocks]
403405rowToBlocksList (Row cells) = do