@@ -202,9 +202,9 @@ blockToConTeXt (BulletList lst) = do
202202blockToConTeXt (OrderedList (start, style', delim) lst) = do
203203 st <- get
204204 let level = stOrderedListLevel st
205− put $ st {stOrderedListLevel = level + 1}
205+ put st {stOrderedListLevel = level + 1}
206206 contents <- mapM listItemToConTeXt lst
207− put $ st {stOrderedListLevel = level}
207+ put st {stOrderedListLevel = level}
208208 let start' = if start == 1 then "" else "start=" ++ show start
209209 let delim' = case delim of
210210 DefaultDelim -> ""