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