@@ -441,6 +441,7 @@ blockToParagraphs (DefinitionList entries) = do
441441 definition <- concatMapM (blockToParagraphs . BlockQuote) blksLst
442442 return $ term ++ definition
443443 concatMapM go entries
444+blockToParagraphs (Div (_, ("notes" : []), _) _) = return []
444445blockToParagraphs (Div _ blks) = concatMapM blockToParagraphs blks
445446blockToParagraphs blk = do
446447 P.report $ BlockNotRendered blk