summaryrefslogtreecommitdiff
path: root/src/Text/Pandoc/Readers/Docx.hs
diff options
context:
space:
mode:
authorJesse Rosenthal <jrosenthal@jhu.edu>2014-06-20 09:30:30 -0400
committerJesse Rosenthal <jrosenthal@jhu.edu>2014-06-20 09:30:30 -0400
commit7fd48b30e0a6e1e3c02a2b66c76118d10c02636f (patch)
tree33f55b243fa17bcf302af9cc3b520de96a9b327c /src/Text/Pandoc/Readers/Docx.hs
parent557b302731411057cf12e62c87d98752f713d5d0 (diff)
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/Pandoc/Readers/Docx.hs')
-rw-r--r--src/Text/Pandoc/Readers/Docx.hs2
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) =