From 7fd48b30e0a6e1e3c02a2b66c76118d10c02636f Mon Sep 17 00:00:00 2001 From: Jesse Rosenthal Date: Fri, 20 Jun 2014 09:30:30 -0400 Subject: 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. --- src/Text/Pandoc/Readers/Docx.hs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src/Text/Pandoc/Readers/Docx.hs') 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) = -- cgit v1.2.3