@@ -213,8 +213,12 @@ blockToAsciiDoc opts (Table caption aligns widths headers rows) = do
213213blockToAsciiDoc opts (BulletList items) = do
214214 contents <- mapM (bulletListItemToAsciiDoc opts) items
215215 return $ cat contents <> blankline
216−blockToAsciiDoc opts (OrderedList (start, sty, _delim) items) = do
217− let markers = orderedListMarkers (start, sty, Period)
216+blockToAsciiDoc opts (OrderedList (_start, sty, _delim) items) = do
217+ let sty' = case sty of
218+ UpperRoman -> UpperAlpha
219+ LowerRoman -> LowerAlpha
220+ x -> x
221+ let markers = orderedListMarkers (1, sty', Period) -- start num not used
218222 let markers' = map (\m -> if length m < 3
219223 then m ++ replicate (3 - length m) ' '
220224 else m) markers