diff options
| author | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-06-20 09:30:30 -0400 |
|---|---|---|
| committer | Jesse Rosenthal <jrosenthal@jhu.edu> | 2014-06-20 09:30:30 -0400 |
| commit | 7fd48b30e0a6e1e3c02a2b66c76118d10c02636f (patch) | |
| tree | 33f55b243fa17bcf302af9cc3b520de96a9b327c /src/Text | |
| parent | 557b302731411057cf12e62c87d98752f713d5d0 (diff) | |
| download | pandoc-7fd48b30e0a6e1e3c02a2b66c76118d10c02636f.tar.gz | |
Docx reader: Fix hdr handling in block norm
`blockNormalize` previously forgot to account for the case in which a
Header's inlines did not start with a space.
Diffstat (limited to 'src/Text')
| -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 9c1d0c5e6..84d50a396 100644 --- a/src/Text/Pandoc/Readers/Docx.hs +++ b/src/Text/Pandoc/Readers/Docx.hs @@ -157,6 +157,8 @@ blockNormalize (Para (Space : ils)) = blockNormalize (Para ils) blockNormalize (Para ils) = Para $ strNormalize ils blockNormalize (Header n attr (Space : ils)) = blockNormalize $ Header n attr ils +blockNormalize (Header n attr ils) = + Header n attr $ strNormalize ils blockNormalize (Table (Space : ils) align width hdr cells) = blockNormalize $ Table ils align width hdr cells blockNormalize (Table ils align width hdr cells) = |