@@ -31,6 +31,8 @@ spcSep = mconcat . intersperse space
3131--
3232makeRoundTrip :: Block -> Block
3333makeRoundTrip Table{} = Para [Str "table was here"]
34+makeRoundTrip (OrderedList (start, LowerAlpha, _) items) = OrderedList (start, Decimal, Period) items
35+makeRoundTrip (OrderedList (start, UpperAlpha, _) items) = OrderedList (start, Decimal, Period) items
3436makeRoundTrip x = x
3537
3638-- Demand that any AST produced by Muse reader and written by Muse writer can be read back exactly the same way.