@@ -836,7 +836,7 @@ blockToHtml opts (Header level attr@(_,classes,_) lst) = do
836836 4 -> H.h4 contents'
837837 5 -> H.h5 contents'
838838 6 -> H.h6 contents'
839− _ -> H.p contents'
839+ _ -> H.p ! A.class_ "heading" $ contents'
840840blockToHtml opts (BulletList lst) = do
841841 contents <- mapM (listItemToHtml opts) lst
842842 unordList opts contents