Docx Reader: Normalize DefinitionLists

Previously DefinitionList had been left out of `blockNormalize`. Now it
is included.
This commit is contained in:
Jesse Rosenthal 2014-06-20 10:16:32 -04:00
parent 3da515bdb0
commit 03af19a7e1

View file

@ -161,6 +161,8 @@ blockNormalize (Header n attr ils) =
Header n attr $ strNormalize $ stripSpaces ils
blockNormalize (Table ils align width hdr cells) =
Table (strNormalize $ stripSpaces ils) align width hdr cells
blockNormalize (DefinitionList pairs) =
DefinitionList $ map (\(ils, blklsts) -> (strNormalize (stripSpaces ils), blklsts)) pairs
blockNormalize blk = blk
runToInlines :: ReaderOptions -> Docx -> Run -> [Inline]