@@ -525,7 +525,9 @@ blockToHtml opts (BulletList lst) = do
525525 return $ unordList opts contents
526526blockToHtml opts (OrderedList (startnum, numstyle, _) lst) = do
527527 contents <- mapM (blockListToHtml opts) lst
528− let numstyle' = camelCaseToHyphenated $ show numstyle
528+ let numstyle' = case numstyle of
529+ Example -> "decimal"
530+ _ -> camelCaseToHyphenated $ show numstyle
529531 let attribs = (if startnum /= 1
530532 then [A.start $ toValue startnum]
531533 else []) ++