diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-06-20 10:16:32 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-06-20 10:20:37 -0400 |
| commit | 03af19a7e12ff3a7f0a396ebed73c6c17f12ad07 (patch) | |
| tree | 29cb4fdf651f586d721d984f37f0454f458c455f /src | |
| parent | 3da515bdb005cf16589b88d80aa4a8a71760e366 (diff) | |
| download | pandoc-03af19a7e12ff3a7f0a396ebed73c6c17f12ad07.tar.gz | |
Docx Reader: Normalize DefinitionLists
Previously DefinitionList had been left out of `blockNormalize`. Now it
is included.
Diffstat (limited to 'src')
| -rw-r--r-- | src/Text/Pandoc/Readers/Docx.hs | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/Text/Pandoc/Readers/Docx.hs b/src/Text/Pandoc/Readers/Docx.hs index 08afc94e6..e62cf6f0e 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -161,6 +161,8 @@ blockNormalize (Header n attr ils) = Header n attr $ strNormalize $ stripSpaces ils blockNormalize (Table ils align width hdr cells) = Table (strNormalize $ stripSpaces ils) align width hdr cells +blockNormalize (DefinitionList pairs) = + DefinitionList $ map (\(ils, blklsts) -> (strNormalize (stripSpaces ils), blklsts)) pairs blockNormalize blk = blk runToInlines :: ReaderOptions -> Docx -> Run -> [Inline] |