@@ -462,7 +462,9 @@ bodyPartToBlocks (Paragraph pPr parparts)
462bodyPartToBlocks (Paragraph pPr parparts) = do
462bodyPartToBlocks (Paragraph pPr parparts) = do
463 ils <- parPartsToInlines parparts >>= (return . normalizeSpaces)
463 ils <- parPartsToInlines parparts >>= (return . normalizeSpaces)
464 dropIls <- gets docxDropCap
464 dropIls <- gets docxDropCap
465+ let ils' = case ils of
465− let ils' = reduceList $ dropIls ++ ils
466+ (x:xs) -> reduceList (dropIls ++ [x]) ++ xs
466 if dropCap pPr
468 if dropCap pPr
467 then do modify $ \s -> s { docxDropCap = ils' }
469 then do modify $ \s -> s { docxDropCap = ils' }
468 return []
470 return []