Tissevert/pandoc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 1

Docx reader: Fix hdr handling in block norm

Browse source 
`blockNormalize` previously forgot to account for the case in which a
Header's inlines did not start with a space.
This commit is contained in:
Jesse Rosenthal 2014-06-20 09:30:30 -04:00
parent 557b302731
commit 7fd48b30e0
1 changed files with 2 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
src/Text/Pandoc/Readers/Docx.hs
View file

@ -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) =