@@ -397,7 +397,9 @@ singleParaToPlain blks
397singleParaToPlain blks = blks
397singleParaToPlain blks = blks
399cellToBlocks :: Cell -> DocxContext Blocks
399cellToBlocks :: Cell -> DocxContext Blocks
400+cellToBlocks (Cell bps) = do
400−cellToBlocks (Cell bps) = concatReduce <$> mapM bodyPartToBlocks bps
401+ blks <- concatReduce <$> mapM bodyPartToBlocks bps
402+ return $ fromList $ blocksToDefinitions $ blocksToBullets $ toList blks
402rowToBlocksList :: Row -> DocxContext [Blocks]
404rowToBlocksList :: Row -> DocxContext [Blocks]
403rowToBlocksList (Row cells) = do
405rowToBlocksList (Row cells) = do