@@ -31,6 +31,8 @@ spcSep = mconcat . intersperse space
32makeRoundTrip :: Block -> Block
32makeRoundTrip :: Block -> Block
33makeRoundTrip Table{} = Para [Str "table was here"]
33makeRoundTrip 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
34makeRoundTrip x = x
36makeRoundTrip x = x
36-- Demand that any AST produced by Muse reader and written by Muse writer can be read back exactly the same way.
38-- Demand that any AST produced by Muse reader and written by Muse writer can be read back exactly the same way.