@@ -342,11 +342,11 @@ extentToAttr _ = nullAttr
342342blocksToInlinesWarn :: PandocMonad m => T.Text -> Blocks -> DocxContext m Inlines
343343blocksToInlinesWarn cmtId blks = do
344344 let blkList = toList blks
345− notParaOrPlain :: Block -> Bool
346− notParaOrPlain (Para _) = False
347− notParaOrPlain (Plain _) = False
348− notParaOrPlain _ = True
349− unless ( not (any notParaOrPlain blkList)) $
345+ paraOrPlain :: Block -> Bool
346+ paraOrPlain (Para _) = True
347+ paraOrPlain (Plain _) = True
348+ paraOrPlain _ = False
349+ unless (all paraOrPlain blkList) $
350350 lift $ P.report $ DocxParserWarning $
351351 "Docx comment " <> cmtId <> " will not retain formatting"
352352 return $ blocksToInlines' blkList