From 0998f774ced02c8298e2427853d196b392bba299 Mon Sep 17 00:00:00 2001 From: John MacFarlane Date: Wed, 9 Jan 2013 15:54:39 -0800 Subject: [PATCH] Fixed regression in example lists. This was associated with e1be934dc2ff061e5200017d6503280686983e1f. --- src/Text/Pandoc/Writers/LaTeX.hs | 13 +++++++------ 1 file changed, 7 insertions(+), 6 deletions(-) diff --git a/src/Text/Pandoc/Writers/LaTeX.hs b/src/Text/Pandoc/Writers/LaTeX.hs index f01ddac78..4e4a2b421 100644 --- a/src/Text/Pandoc/Writers/LaTeX.hs +++ b/src/Text/Pandoc/Writers/LaTeX.hs @@ -364,12 +364,13 @@ blockToLaTeX (OrderedList (start, numstyle, numdelim) lst) = do items <- mapM listItemToLaTeX lst modify (\s -> s {stOLLevel = oldlevel}) let tostyle x = case numstyle of - Decimal -> "\\arabic" <> braces x - UpperRoman -> "\\Roman" <> braces x - LowerRoman -> "\\roman" <> braces x - UpperAlpha -> "\\Alph" <> braces x - LowerAlpha -> "\\alph" <> braces x - _ -> x + Decimal -> "\\arabic" <> braces x + UpperRoman -> "\\Roman" <> braces x + LowerRoman -> "\\roman" <> braces x + UpperAlpha -> "\\Alph" <> braces x + LowerAlpha -> "\\alph" <> braces x + Example -> "\\arabic" <> braces x + DefaultStyle -> "\\arabic" <> braces x let todelim x = case numdelim of OneParen -> x <> ")" TwoParens -> parens x