Fixed list-style-type for numbered example lists.

Should be "decimal," not "example." Closes #1902.
2015-01-27 16:56:56 -08:00 · 2015-01-27 16:56:56 -08:00 · 82c04a28ce
commit 82c04a28ce
parent 4e03796f14
1 changed files with 3 additions and 1 deletions
--- a/src/Text/Pandoc/Writers/HTML.hs
+++ b/src/Text/Pandoc/Writers/HTML.hs
@ -525,7 +525,9 @@ blockToHtml opts (BulletList lst) = do
  return $ unordList opts contents
 blockToHtml opts (OrderedList (startnum, numstyle, _) lst) = do
  contents <- mapM (blockListToHtml opts) lst
-  let numstyle' = camelCaseToHyphenated $ show numstyle
+  let numstyle' = case numstyle of
+                       Example -> "decimal"
+                       _       -> camelCaseToHyphenated $ show numstyle
  let attribs = (if startnum /= 1
                   then [A.start $ toValue startnum]
                   else []) ++