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