@@ -202,9 +202,9 @@ blockToConTeXt (BulletList lst) = do
202blockToConTeXt (OrderedList (start, style', delim) lst) = do
202blockToConTeXt (OrderedList (start, style', delim) lst) = do
203 st <- get
203 st <- get
204 let level = stOrderedListLevel st
204 let level = stOrderedListLevel st
205− put $ st {stOrderedListLevel = level + 1}
205+ put st {stOrderedListLevel = level + 1}
206 contents <- mapM listItemToConTeXt lst
206 contents <- mapM listItemToConTeXt lst
207− put $ st {stOrderedListLevel = level}
207+ put st {stOrderedListLevel = level}
208 let start' = if start == 1 then "" else "start=" ++ show start
208 let start' = if start == 1 then "" else "start=" ++ show start
209 let delim' = case delim of
209 let delim' = case delim of
210 DefaultDelim -> ""
210 DefaultDelim -> ""