From 7fd48b30e0a6e1e3c02a2b66c76118d10c02636f Mon Sep 17 00:00:00 2001
From: Jesse Rosenthal <jrosenthal@jhu.edu>
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')

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