@@ -364,12 +364,13 @@ blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do
364364 items <- mapM listItemToLaTeX lst
365365 modify (\s -> s {stOLLevel = oldlevel})
366366 let tostyle x = case numstyle of
367− Decimal -> "\\arabic" <> braces x
368− UpperRoman -> "\\Roman" <> braces x
369− LowerRoman -> "\\roman" <> braces x
370− UpperAlpha -> "\\Alph" <> braces x
371− LowerAlpha -> "\\alph" <> braces x
372− _ -> x
367+ Decimal -> "\\arabic" <> braces x
368+ UpperRoman -> "\\Roman" <> braces x
369+ LowerRoman -> "\\roman" <> braces x
370+ UpperAlpha -> "\\Alph" <> braces x
371+ LowerAlpha -> "\\alph" <> braces x
372+ Example -> "\\arabic" <> braces x
373+ DefaultStyle -> "\\arabic" <> braces x
373374 let todelim x = case numdelim of
374375 OneParen -> x <> ")"
375376 TwoParens -> parens x