diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2015-02-13 09:02:16 -0500 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2015-02-13 09:02:16 -0500 |
| commit | 24fd0ad04d2f057f0cc035bfcdfb98c07ad3072a (patch) | |
| tree | ed22bd7b14bb165a16b3f75dc6a4f961166b0e14 /src/Text | |
| parent | ba59e5447ffe8d15dd7fee69a7aa03706ce3c49b (diff) | |
| download | pandoc-24fd0ad04d2f057f0cc035bfcdfb98c07ad3072a.tar.gz | |
Docx reader: Handle lists correctly inside table cells.
Previously we didn't transform lists inside table cells.
Diffstat (limited to 'src/Text')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 64eb0322f..d4680cb7e 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -397,7 +397,9 @@ singleParaToPlain blks singleParaToPlain blks = blks cellToBlocks :: Cell -> DocxContext Blocks -cellToBlocks (Cell bps) = concatReduce <$> mapM bodyPartToBlocks bps +cellToBlocks (Cell bps) = do + blks <- concatReduce <$> mapM bodyPartToBlocks bps + return $ fromList $ blocksToDefinitions $ blocksToBullets $ toList blks rowToBlocksList :: Row -> DocxContext [Blocks] rowToBlocksList (Row cells) = do |