@@ -836,7 +836,7 @@ blockToHtml opts (Header level attr@(_,classes,_) lst) = do
836 4 -> H.h4 contents'
836 4 -> H.h4 contents'
837 5 -> H.h5 contents'
837 5 -> H.h5 contents'
838 6 -> H.h6 contents'
838 6 -> H.h6 contents'
839− _ -> H.p contents'
839+ _ -> H.p ! A.class_ "heading" $ contents'
840blockToHtml opts (BulletList lst) = do
840blockToHtml opts (BulletList lst) = do
841 contents <- mapM (listItemToHtml opts) lst
841 contents <- mapM (listItemToHtml opts) lst
842 unordList opts contents
842 unordList opts contents